home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 January: Mac OS SDK / Dev.CD Jan 99 SDK1.toast / Development Kits / Interfaces&Libraries / Universal / Interfaces / AIncludes / QuickTimeComponents.a < prev    next >
Encoding:
Text File  |  1998-08-17  |  189.4 KB  |  6,653 lines  |  [TEXT/MPS ]

  1. ;
  2. ;    File:        QuickTimeComponents.a
  3. ;
  4. ;    Contains:    QuickTime Interfaces.
  5. ;
  6. ;    Version:    Technology:    QuickTime 3.0
  7. ;                Release:    Universal Interfaces 3.2
  8. ;
  9. ;    Copyright:    © 1990-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        For bug reports, consult the following page on
  12. ;                the World Wide Web:
  13. ;
  14. ;                    http://developer.apple.com/bugreporter/
  15. ;
  16. ;
  17.     IF &TYPE('__QUICKTIMECOMPONENTS__') = 'UNDEFINED' THEN
  18. __QUICKTIMECOMPONENTS__ SET 1
  19.  
  20.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  21.     include 'MacTypes.a'
  22.     ENDIF
  23.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  24.     include 'MixedMode.a'
  25.     ENDIF
  26.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  27.     include 'Components.a'
  28.     ENDIF
  29.     IF &TYPE('__IMAGECOMPRESSION__') = 'UNDEFINED' THEN
  30.     include 'ImageCompression.a'
  31.     ENDIF
  32.     IF &TYPE('__MOVIES__') = 'UNDEFINED' THEN
  33.     include 'Movies.a'
  34.     ENDIF
  35.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  36.     include 'Quickdraw.a'
  37.     ENDIF
  38.     IF &TYPE('__VIDEO__') = 'UNDEFINED' THEN
  39.     include 'Video.a'
  40.     ENDIF
  41.     IF &TYPE('__SOUND__') = 'UNDEFINED' THEN
  42.     include 'Sound.a'
  43.     ENDIF
  44.     IF &TYPE('__QUICKTIMEMUSIC__') = 'UNDEFINED' THEN
  45.     include 'QuickTimeMusic.a'
  46.     ENDIF
  47.  
  48.  
  49. clockComponentType                EQU        'clok'
  50. systemTickClock                    EQU        'tick'                ; subtype: 60ths since boot        
  51. systemSecondClock                EQU        'seco'                ; subtype: seconds since 1904        
  52. systemMillisecondClock            EQU        'mill'                ; subtype: 1000ths since boot        
  53. systemMicrosecondClock            EQU        'micr'                ; subtype: 1000000ths since boot    
  54.  
  55. kClockRateIsLinear                EQU        1
  56. kClockImplementsCallBacks        EQU        2
  57. kClockCanHandleIntermittentSound EQU    4                    ; sound clocks only 
  58. ;
  59. ; pascal ComponentResult ClockGetTime(ComponentInstance aClock, TimeRecord *out)
  60. ;
  61.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  62.         Macro
  63.         _ClockGetTime
  64.             move.l              #$00040001,-(sp)
  65.             moveq               #0,D0
  66.             dc.w                $A82A
  67.         EndM
  68.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  69.         IMPORT_CFM_FUNCTION ClockGetTime
  70.     ENDIF
  71.  
  72.  
  73. ;
  74. ; pascal QTCallBack ClockNewCallBack(ComponentInstance aClock, TimeBase tb, short callBackType)
  75. ;
  76.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  77.         Macro
  78.         _ClockNewCallBack
  79.             move.l              #$00060002,-(sp)
  80.             moveq               #0,D0
  81.             dc.w                $A82A
  82.         EndM
  83.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  84.         IMPORT_CFM_FUNCTION ClockNewCallBack
  85.     ENDIF
  86.  
  87. ;
  88. ; pascal ComponentResult ClockDisposeCallBack(ComponentInstance aClock, QTCallBack cb)
  89. ;
  90.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  91.         Macro
  92.         _ClockDisposeCallBack
  93.             move.l              #$00040003,-(sp)
  94.             moveq               #0,D0
  95.             dc.w                $A82A
  96.         EndM
  97.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  98.         IMPORT_CFM_FUNCTION ClockDisposeCallBack
  99.     ENDIF
  100.  
  101. ;
  102. ; pascal ComponentResult ClockCallMeWhen(ComponentInstance aClock, QTCallBack cb, long param1, long param2, long param3)
  103. ;
  104.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  105.         Macro
  106.         _ClockCallMeWhen
  107.             move.l              #$00100004,-(sp)
  108.             moveq               #0,D0
  109.             dc.w                $A82A
  110.         EndM
  111.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  112.         IMPORT_CFM_FUNCTION ClockCallMeWhen
  113.     ENDIF
  114.  
  115. ;
  116. ; pascal ComponentResult ClockCancelCallBack(ComponentInstance aClock, QTCallBack cb)
  117. ;
  118.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  119.         Macro
  120.         _ClockCancelCallBack
  121.             move.l              #$00040005,-(sp)
  122.             moveq               #0,D0
  123.             dc.w                $A82A
  124.         EndM
  125.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  126.         IMPORT_CFM_FUNCTION ClockCancelCallBack
  127.     ENDIF
  128.  
  129. ;
  130. ; pascal ComponentResult ClockRateChanged(ComponentInstance aClock, QTCallBack cb)
  131. ;
  132.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  133.         Macro
  134.         _ClockRateChanged
  135.             move.l              #$00040006,-(sp)
  136.             moveq               #0,D0
  137.             dc.w                $A82A
  138.         EndM
  139.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  140.         IMPORT_CFM_FUNCTION ClockRateChanged
  141.     ENDIF
  142.  
  143. ;
  144. ; pascal ComponentResult ClockTimeChanged(ComponentInstance aClock, QTCallBack cb)
  145. ;
  146.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  147.         Macro
  148.         _ClockTimeChanged
  149.             move.l              #$00040007,-(sp)
  150.             moveq               #0,D0
  151.             dc.w                $A82A
  152.         EndM
  153.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  154.         IMPORT_CFM_FUNCTION ClockTimeChanged
  155.     ENDIF
  156.  
  157. ;
  158. ; pascal ComponentResult ClockSetTimeBase(ComponentInstance aClock, TimeBase tb)
  159. ;
  160.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  161.         Macro
  162.         _ClockSetTimeBase
  163.             move.l              #$00040008,-(sp)
  164.             moveq               #0,D0
  165.             dc.w                $A82A
  166.         EndM
  167.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  168.         IMPORT_CFM_FUNCTION ClockSetTimeBase
  169.     ENDIF
  170.  
  171. ;
  172. ; pascal ComponentResult ClockStartStopChanged(ComponentInstance aClock, QTCallBack cb, Boolean startChanged, Boolean stopChanged)
  173. ;
  174.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  175.         Macro
  176.         _ClockStartStopChanged
  177.             move.l              #$00080009,-(sp)
  178.             moveq               #0,D0
  179.             dc.w                $A82A
  180.         EndM
  181.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  182.         IMPORT_CFM_FUNCTION ClockStartStopChanged
  183.     ENDIF
  184.  
  185. ;
  186. ; pascal ComponentResult ClockGetRate(ComponentInstance aClock, Fixed *rate)
  187. ;
  188.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  189.         Macro
  190.         _ClockGetRate
  191.             move.l              #$0004000A,-(sp)
  192.             moveq               #0,D0
  193.             dc.w                $A82A
  194.         EndM
  195.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  196.         IMPORT_CFM_FUNCTION ClockGetRate
  197.     ENDIF
  198.  
  199.  
  200.  
  201.  
  202.  
  203. StandardCompressionType            EQU        'scdi'
  204. StandardCompressionSubType        EQU        'imag'
  205. StandardCompressionSubTypeSound    EQU        'soun'
  206.  
  207. ;     Preference flags.
  208.  
  209. scListEveryCodec                EQU        $00000002
  210. scAllowZeroFrameRate            EQU        $00000004
  211. scAllowZeroKeyFrameRate            EQU        $00000008
  212. scShowBestDepth                    EQU        $00000010
  213. scUseMovableModal                EQU        $00000020
  214. scDisableFrameRateItem            EQU        $00000040
  215.  
  216. ;     Possible test flags for setting test image.
  217.  
  218. scPreferCropping                EQU        $01
  219. scPreferScaling                    EQU        $02
  220. scPreferScalingAndCropping        EQU        $03
  221. scDontDetermineSettingsFromTestImage EQU $04
  222.  
  223. ;     Dimensions of the image preview box.
  224.  
  225. scTestImageWidth                EQU        80
  226. scTestImageHeight                EQU        80
  227. ;     Possible items returned by hookProc.
  228.  
  229. scOKItem                        EQU        1
  230. scCancelItem                    EQU        2
  231. scCustomItem                    EQU        3
  232. ;     Result returned when user cancelled.
  233.  
  234. scUserCancelled                    EQU        1
  235.  
  236.  
  237. ;     Get/SetInfo structures.
  238.  
  239. SCSpatialSettings        RECORD 0
  240. codecType                 ds.l    1                ; offset: $0 (0)
  241. codec                     ds.l    1                ; offset: $4 (4)
  242. depth                     ds.w    1                ; offset: $8 (8)
  243. spatialQuality             ds.l    1                ; offset: $A (10)
  244. sizeof                     EQU *                    ; size:   $E (14)
  245.                         ENDR
  246. SCTemporalSettings        RECORD 0
  247. temporalQuality             ds.l    1                ; offset: $0 (0)
  248. frameRate                 ds.l    1                ; offset: $4 (4)
  249. keyFrameRate             ds.l    1                ; offset: $8 (8)
  250. sizeof                     EQU *                    ; size:   $C (12)
  251.                         ENDR
  252. SCDataRateSettings        RECORD 0
  253. dataRate                 ds.l    1                ; offset: $0 (0)
  254. frameDuration             ds.l    1                ; offset: $4 (4)
  255. minSpatialQuality         ds.l    1                ; offset: $8 (8)
  256. minTemporalQuality         ds.l    1                ; offset: $C (12)
  257. sizeof                     EQU *                    ; size:   $10 (16)
  258.                         ENDR
  259. SCExtendedProcs            RECORD 0
  260. filterProc                 ds.l    1                ; offset: $0 (0)
  261. hookProc                 ds.l    1                ; offset: $4 (4)
  262. refcon                     ds.l    1                ; offset: $8 (8)
  263. customName                 ds        Str31            ; offset: $C (12)
  264. sizeof                     EQU *                    ; size:   $2C (44)
  265.                         ENDR
  266. ;     Get/SetInfo selectors
  267.  
  268. scSpatialSettingsType            EQU        'sptl'                ; pointer to SCSpatialSettings struct
  269. scTemporalSettingsType            EQU        'tprl'                ; pointer to SCTemporalSettings struct
  270. scDataRateSettingsType            EQU        'drat'                ; pointer to SCDataRateSettings struct
  271. scColorTableType                EQU        'clut'                ; pointer to CTabHandle
  272. scProgressProcType                EQU        'prog'                ; pointer to ProgressRecord struct
  273. scExtendedProcsType                EQU        'xprc'                ; pointer to SCExtendedProcs struct
  274. scPreferenceFlagsType            EQU        'pref'                ; pointer to long
  275. scSettingsStateType                EQU        'ssta'                ; pointer to Handle
  276. scSequenceIDType                EQU        'sequ'                ; pointer to ImageSequence
  277. scWindowPositionType            EQU        'wndw'                ; pointer to Point
  278. scCodecFlagsType                EQU        'cflg'                ; pointer to CodecFlags
  279. scCodecSettingsType                EQU        'cdec'                ; pointer to Handle
  280. scForceKeyValueType                EQU        'ksim'                ; pointer to long
  281. scSoundSampleRateType            EQU        'ssrt'                ; pointer to UnsignedFixed
  282. scSoundSampleSizeType            EQU        'ssss'                ; pointer to short
  283. scSoundChannelCountType            EQU        'sscc'                ; pointer to short
  284. scSoundCompressionType            EQU        'ssct'                ; pointer to OSType
  285. scCompressionListType            EQU        'ctyl'                ; pointer to OSType Handle
  286. ;     scTypeNotFoundErr returned by Get/SetInfo when type cannot be found.
  287.  
  288.  
  289. SCParams                RECORD 0
  290. flags                     ds.l    1                ; offset: $0 (0)
  291. theCodecType             ds.l    1                ; offset: $4 (4)
  292. theCodec                 ds.l    1                ; offset: $8 (8)
  293. spatialQuality             ds.l    1                ; offset: $C (12)
  294. temporalQuality             ds.l    1                ; offset: $10 (16)
  295. depth                     ds.w    1                ; offset: $14 (20)
  296. frameRate                 ds.l    1                ; offset: $16 (22)
  297. keyFrameRate             ds.l    1                ; offset: $1A (26)
  298. reserved1                 ds.l    1                ; offset: $1E (30)
  299. reserved2                 ds.l    1                ; offset: $22 (34)
  300. sizeof                     EQU *                    ; size:   $26 (38)
  301.                         ENDR
  302.  
  303. scGetCompression                EQU        1
  304. scShowMotionSettings            EQU        $00000001
  305. scSettingsChangedItem            EQU        -1
  306.  
  307. scCompressFlagIgnoreIdenticalFrames EQU    1
  308. ;  QTAtomTypes for atoms found in settings atom containers
  309.  
  310. kQTSettingsVideo                EQU        'vide'                ; Container for video/image compression related atoms (Get/SetInfo selectors)
  311. kQTSettingsSound                EQU        'soun'                ; Container for sound compression related atoms (Get/SetInfo selectors)
  312.  
  313. ;
  314. ; pascal ComponentResult SCGetCompressionExtended(ComponentInstance ci, SCParams *params, Point where, SCModalFilterUPP filterProc, SCModalHookUPP hookProc, long refcon, StringPtr customName)
  315. ;
  316.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  317.         Macro
  318.         _SCGetCompressionExtended
  319.             move.l              #$00180001,-(sp)
  320.             moveq               #0,D0
  321.             dc.w                $A82A
  322.         EndM
  323.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  324.         IMPORT_CFM_FUNCTION SCGetCompressionExtended
  325.     ENDIF
  326.  
  327. ;
  328. ; pascal ComponentResult SCPositionRect(ComponentInstance ci, Rect *rp, Point *where)
  329. ;
  330.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  331.         Macro
  332.         _SCPositionRect
  333.             move.l              #$00080002,-(sp)
  334.             moveq               #0,D0
  335.             dc.w                $A82A
  336.         EndM
  337.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  338.         IMPORT_CFM_FUNCTION SCPositionRect
  339.     ENDIF
  340.  
  341. ;
  342. ; pascal ComponentResult SCPositionDialog(ComponentInstance ci, short id, Point *where)
  343. ;
  344.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  345.         Macro
  346.         _SCPositionDialog
  347.             move.l              #$00060003,-(sp)
  348.             moveq               #0,D0
  349.             dc.w                $A82A
  350.         EndM
  351.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  352.         IMPORT_CFM_FUNCTION SCPositionDialog
  353.     ENDIF
  354.  
  355. ;
  356. ; pascal ComponentResult SCSetTestImagePictHandle(ComponentInstance ci, PicHandle testPict, Rect *testRect, short testFlags)
  357. ;
  358.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  359.         Macro
  360.         _SCSetTestImagePictHandle
  361.             move.l              #$000A0004,-(sp)
  362.             moveq               #0,D0
  363.             dc.w                $A82A
  364.         EndM
  365.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  366.         IMPORT_CFM_FUNCTION SCSetTestImagePictHandle
  367.     ENDIF
  368.  
  369. ;
  370. ; pascal ComponentResult SCSetTestImagePictFile(ComponentInstance ci, short testFileRef, Rect *testRect, short testFlags)
  371. ;
  372.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  373.         Macro
  374.         _SCSetTestImagePictFile
  375.             move.l              #$00080005,-(sp)
  376.             moveq               #0,D0
  377.             dc.w                $A82A
  378.         EndM
  379.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  380.         IMPORT_CFM_FUNCTION SCSetTestImagePictFile
  381.     ENDIF
  382.  
  383. ;
  384. ; pascal ComponentResult SCSetTestImagePixMap(ComponentInstance ci, PixMapHandle testPixMap, Rect *testRect, short testFlags)
  385. ;
  386.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  387.         Macro
  388.         _SCSetTestImagePixMap
  389.             move.l              #$000A0006,-(sp)
  390.             moveq               #0,D0
  391.             dc.w                $A82A
  392.         EndM
  393.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  394.         IMPORT_CFM_FUNCTION SCSetTestImagePixMap
  395.     ENDIF
  396.  
  397. ;
  398. ; pascal ComponentResult SCGetBestDeviceRect(ComponentInstance ci, Rect *r)
  399. ;
  400.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  401.         Macro
  402.         _SCGetBestDeviceRect
  403.             move.l              #$00040007,-(sp)
  404.             moveq               #0,D0
  405.             dc.w                $A82A
  406.         EndM
  407.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  408.         IMPORT_CFM_FUNCTION SCGetBestDeviceRect
  409.     ENDIF
  410.  
  411.  
  412. ;
  413. ; pascal ComponentResult SCRequestImageSettings(ComponentInstance ci)
  414. ;
  415.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  416.         Macro
  417.         _SCRequestImageSettings
  418.             move.l              #$0000000A,-(sp)
  419.             moveq               #0,D0
  420.             dc.w                $A82A
  421.         EndM
  422.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  423.         IMPORT_CFM_FUNCTION SCRequestImageSettings
  424.     ENDIF
  425.  
  426. ;
  427. ; pascal ComponentResult SCCompressImage(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc, Handle *data)
  428. ;
  429.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  430.         Macro
  431.         _SCCompressImage
  432.             move.l              #$0010000B,-(sp)
  433.             moveq               #0,D0
  434.             dc.w                $A82A
  435.         EndM
  436.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  437.         IMPORT_CFM_FUNCTION SCCompressImage
  438.     ENDIF
  439.  
  440. ;
  441. ; pascal ComponentResult SCCompressPicture(ComponentInstance ci, PicHandle srcPicture, PicHandle dstPicture)
  442. ;
  443.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  444.         Macro
  445.         _SCCompressPicture
  446.             move.l              #$0008000C,-(sp)
  447.             moveq               #0,D0
  448.             dc.w                $A82A
  449.         EndM
  450.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  451.         IMPORT_CFM_FUNCTION SCCompressPicture
  452.     ENDIF
  453.  
  454. ;
  455. ; pascal ComponentResult SCCompressPictureFile(ComponentInstance ci, short srcRefNum, short dstRefNum)
  456. ;
  457.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  458.         Macro
  459.         _SCCompressPictureFile
  460.             move.l              #$0004000D,-(sp)
  461.             moveq               #0,D0
  462.             dc.w                $A82A
  463.         EndM
  464.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  465.         IMPORT_CFM_FUNCTION SCCompressPictureFile
  466.     ENDIF
  467.  
  468. ;
  469. ; pascal ComponentResult SCRequestSequenceSettings(ComponentInstance ci)
  470. ;
  471.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  472.         Macro
  473.         _SCRequestSequenceSettings
  474.             move.l              #$0000000E,-(sp)
  475.             moveq               #0,D0
  476.             dc.w                $A82A
  477.         EndM
  478.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  479.         IMPORT_CFM_FUNCTION SCRequestSequenceSettings
  480.     ENDIF
  481.  
  482. ;
  483. ; pascal ComponentResult SCCompressSequenceBegin(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc)
  484. ;
  485.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  486.         Macro
  487.         _SCCompressSequenceBegin
  488.             move.l              #$000C000F,-(sp)
  489.             moveq               #0,D0
  490.             dc.w                $A82A
  491.         EndM
  492.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  493.         IMPORT_CFM_FUNCTION SCCompressSequenceBegin
  494.     ENDIF
  495.  
  496. ;
  497. ; pascal ComponentResult SCCompressSequenceFrame(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, Handle *data, long *dataSize, short *notSyncFlag)
  498. ;
  499.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  500.         Macro
  501.         _SCCompressSequenceFrame
  502.             move.l              #$00140010,-(sp)
  503.             moveq               #0,D0
  504.             dc.w                $A82A
  505.         EndM
  506.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  507.         IMPORT_CFM_FUNCTION SCCompressSequenceFrame
  508.     ENDIF
  509.  
  510. ;
  511. ; pascal ComponentResult SCCompressSequenceEnd(ComponentInstance ci)
  512. ;
  513.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  514.         Macro
  515.         _SCCompressSequenceEnd
  516.             move.l              #$00000011,-(sp)
  517.             moveq               #0,D0
  518.             dc.w                $A82A
  519.         EndM
  520.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  521.         IMPORT_CFM_FUNCTION SCCompressSequenceEnd
  522.     ENDIF
  523.  
  524. ;
  525. ; pascal ComponentResult SCDefaultPictHandleSettings(ComponentInstance ci, PicHandle srcPicture, short motion)
  526. ;
  527.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  528.         Macro
  529.         _SCDefaultPictHandleSettings
  530.             move.l              #$00060012,-(sp)
  531.             moveq               #0,D0
  532.             dc.w                $A82A
  533.         EndM
  534.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  535.         IMPORT_CFM_FUNCTION SCDefaultPictHandleSettings
  536.     ENDIF
  537.  
  538. ;
  539. ; pascal ComponentResult SCDefaultPictFileSettings(ComponentInstance ci, short srcRef, short motion)
  540. ;
  541.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  542.         Macro
  543.         _SCDefaultPictFileSettings
  544.             move.l              #$00040013,-(sp)
  545.             moveq               #0,D0
  546.             dc.w                $A82A
  547.         EndM
  548.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  549.         IMPORT_CFM_FUNCTION SCDefaultPictFileSettings
  550.     ENDIF
  551.  
  552. ;
  553. ; pascal ComponentResult SCDefaultPixMapSettings(ComponentInstance ci, PixMapHandle src, short motion)
  554. ;
  555.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  556.         Macro
  557.         _SCDefaultPixMapSettings
  558.             move.l              #$00060014,-(sp)
  559.             moveq               #0,D0
  560.             dc.w                $A82A
  561.         EndM
  562.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  563.         IMPORT_CFM_FUNCTION SCDefaultPixMapSettings
  564.     ENDIF
  565.  
  566. ;
  567. ; pascal ComponentResult SCGetInfo(ComponentInstance ci, OSType infoType, void *info)
  568. ;
  569.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  570.         Macro
  571.         _SCGetInfo
  572.             move.l              #$00080015,-(sp)
  573.             moveq               #0,D0
  574.             dc.w                $A82A
  575.         EndM
  576.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  577.         IMPORT_CFM_FUNCTION SCGetInfo
  578.     ENDIF
  579.  
  580. ;
  581. ; pascal ComponentResult SCSetInfo(ComponentInstance ci, OSType infoType, void *info)
  582. ;
  583.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  584.         Macro
  585.         _SCSetInfo
  586.             move.l              #$00080016,-(sp)
  587.             moveq               #0,D0
  588.             dc.w                $A82A
  589.         EndM
  590.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  591.         IMPORT_CFM_FUNCTION SCSetInfo
  592.     ENDIF
  593.  
  594. ;
  595. ; pascal ComponentResult SCNewGWorld(ComponentInstance ci, GWorldPtr *gwp, Rect *rp, GWorldFlags flags)
  596. ;
  597.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  598.         Macro
  599.         _SCNewGWorld
  600.             move.l              #$000C0017,-(sp)
  601.             moveq               #0,D0
  602.             dc.w                $A82A
  603.         EndM
  604.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  605.         IMPORT_CFM_FUNCTION SCNewGWorld
  606.     ENDIF
  607.  
  608. ;
  609. ; pascal ComponentResult SCSetCompressFlags(ComponentInstance ci, long flags)
  610. ;
  611.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  612.         Macro
  613.         _SCSetCompressFlags
  614.             move.l              #$00040018,-(sp)
  615.             moveq               #0,D0
  616.             dc.w                $A82A
  617.         EndM
  618.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  619.         IMPORT_CFM_FUNCTION SCSetCompressFlags
  620.     ENDIF
  621.  
  622. ;
  623. ; pascal ComponentResult SCGetCompressFlags(ComponentInstance ci, long *flags)
  624. ;
  625.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  626.         Macro
  627.         _SCGetCompressFlags
  628.             move.l              #$00040019,-(sp)
  629.             moveq               #0,D0
  630.             dc.w                $A82A
  631.         EndM
  632.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  633.         IMPORT_CFM_FUNCTION SCGetCompressFlags
  634.     ENDIF
  635.  
  636. ;
  637. ; pascal ComponentResult SCGetSettingsAsText(ComponentInstance ci, Handle *text)
  638. ;
  639.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  640.         Macro
  641.         _SCGetSettingsAsText
  642.             move.l              #$0004001A,-(sp)
  643.             moveq               #0,D0
  644.             dc.w                $A82A
  645.         EndM
  646.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  647.         IMPORT_CFM_FUNCTION SCGetSettingsAsText
  648.     ENDIF
  649.  
  650. ;
  651. ; pascal ComponentResult SCGetSettingsAsAtomContainer(ComponentInstance ci, QTAtomContainer *settings)
  652. ;
  653.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  654.         Macro
  655.         _SCGetSettingsAsAtomContainer
  656.             move.l              #$0004001B,-(sp)
  657.             moveq               #0,D0
  658.             dc.w                $A82A
  659.         EndM
  660.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  661.         IMPORT_CFM_FUNCTION SCGetSettingsAsAtomContainer
  662.     ENDIF
  663.  
  664. ;
  665. ; pascal ComponentResult SCSetSettingsFromAtomContainer(ComponentInstance ci, QTAtomContainer settings)
  666. ;
  667.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  668.         Macro
  669.         _SCSetSettingsFromAtomContainer
  670.             move.l              #$0004001C,-(sp)
  671.             moveq               #0,D0
  672.             dc.w                $A82A
  673.         EndM
  674.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  675.         IMPORT_CFM_FUNCTION SCSetSettingsFromAtomContainer
  676.     ENDIF
  677.  
  678.  
  679.  
  680.  
  681.  
  682. TweenComponentType                EQU        'twen'
  683. ; typedef ComponentInstance             TweenerComponent
  684.  
  685. ;
  686. ; pascal ComponentResult TweenerInitialize(TweenerComponent tc, QTAtomContainer container, QTAtom tweenAtom, QTAtom dataAtom)
  687. ;
  688.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  689.         Macro
  690.         _TweenerInitialize
  691.             move.l              #$000C0001,-(sp)
  692.             moveq               #0,D0
  693.             dc.w                $A82A
  694.         EndM
  695.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  696.         IMPORT_CFM_FUNCTION TweenerInitialize
  697.     ENDIF
  698.  
  699. ;
  700. ; pascal ComponentResult TweenerDoTween(TweenerComponent tc, TweenRecord *tr)
  701. ;
  702.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  703.         Macro
  704.         _TweenerDoTween
  705.             move.l              #$00040002,-(sp)
  706.             moveq               #0,D0
  707.             dc.w                $A82A
  708.         EndM
  709.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  710.         IMPORT_CFM_FUNCTION TweenerDoTween
  711.     ENDIF
  712.  
  713. ;
  714. ; pascal ComponentResult TweenerReset(TweenerComponent tc)
  715. ;
  716.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  717.         Macro
  718.         _TweenerReset
  719.             move.l              #$00000003,-(sp)
  720.             moveq               #0,D0
  721.             dc.w                $A82A
  722.         EndM
  723.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  724.         IMPORT_CFM_FUNCTION TweenerReset
  725.     ENDIF
  726.  
  727.  
  728.  
  729.  
  730. TCSourceRefNameType                EQU        'name'
  731.  
  732. tcDropFrame                        EQU        $01
  733. tc24HourMax                        EQU        $02
  734. tcNegTimesOK                    EQU        $04
  735. tcCounter                        EQU        $08
  736. TimeCodeDef                RECORD 0
  737. flags                     ds.l    1                ; offset: $0 (0)        ;  drop-frame, etc.
  738. fTimeScale                 ds.l    1                ; offset: $4 (4)        ;  time scale of frameDuration (eg. 2997)
  739. frameDuration             ds.l    1                ; offset: $8 (8)        ;  duration of each frame (eg. 100)
  740. numFrames                 ds.b    1                ; offset: $C (12)        ;  frames/sec for timecode (eg. 30) OR frames/tick for counter mode
  741. padding                     ds.b    1                ; offset: $D (13)        ;  unused padding byte
  742. sizeof                     EQU *                    ; size:   $E (14)
  743.                         ENDR
  744.  
  745. tctNegFlag                        EQU        $80                    ; negative bit is in minutes
  746. TimeCodeTime            RECORD 0
  747. hours                     ds.b    1                ; offset: $0 (0)
  748. minutes                     ds.b    1                ; offset: $1 (1)
  749. seconds                     ds.b    1                ; offset: $2 (2)
  750. frames                     ds.b    1                ; offset: $3 (3)
  751. sizeof                     EQU *                    ; size:   $4 (4)
  752.                         ENDR
  753. TimeCodeCounter            RECORD 0
  754. counter                     ds.l    1                ; offset: $0 (0)
  755. sizeof                     EQU *                    ; size:   $4 (4)
  756.                         ENDR
  757. TimeCodeDescription        RECORD 0
  758. descSize                 ds.l    1                ; offset: $0 (0)        ;  standard sample description header
  759. dataFormat                 ds.l    1                ; offset: $4 (4)
  760. resvd1                     ds.l    1                ; offset: $8 (8)
  761. resvd2                     ds.w    1                ; offset: $C (12)
  762. dataRefIndex             ds.w    1                ; offset: $E (14)
  763. flags                     ds.l    1                ; offset: $10 (16)        ;  timecode specific stuff
  764. timeCodeDef                 ds        TimeCodeDef        ; offset: $14 (20)
  765. srcRef                     ds.l    1                ; offset: $22 (34) <-- really an array of length one
  766. sizeof                     EQU *                    ; size:   $26 (38)
  767.                         ENDR
  768. ; typedef struct TimeCodeDescription *    TimeCodeDescriptionPtr
  769.  
  770. ; typedef TimeCodeDescriptionPtr *        TimeCodeDescriptionHandle
  771.  
  772.  
  773. tcdfShowTimeCode                EQU        $01
  774.  
  775. TCTextOptions            RECORD 0
  776. txFont                     ds.w    1                ; offset: $0 (0)
  777. txFace                     ds.w    1                ; offset: $2 (2)
  778. txSize                     ds.w    1                ; offset: $4 (4)
  779. pad                         ds.w    1                ; offset: $6 (6)        ;  let's make it longword aligned - thanks.. 
  780. foreColor                 ds        RGBColor        ; offset: $8 (8)
  781. backColor                 ds        RGBColor        ; offset: $E (14)
  782. sizeof                     EQU *                    ; size:   $14 (20)
  783.                         ENDR
  784. ; typedef struct TCTextOptions *        TCTextOptionsPtr
  785.  
  786. ;
  787. ; pascal HandlerError TCGetCurrentTimeCode(MediaHandler mh, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, UserData *srcRefH)
  788. ;
  789.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  790.         Macro
  791.         _TCGetCurrentTimeCode
  792.             move.l              #$00100101,-(sp)
  793.             moveq               #0,D0
  794.             dc.w                $A82A
  795.         EndM
  796.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  797.         IMPORT_CFM_FUNCTION TCGetCurrentTimeCode
  798.     ENDIF
  799.  
  800. ;
  801. ; pascal HandlerError TCGetTimeCodeAtTime(MediaHandler mh, TimeValue mediaTime, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcdata, UserData *srcRefH)
  802. ;
  803.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  804.         Macro
  805.         _TCGetTimeCodeAtTime
  806.             move.l              #$00140102,-(sp)
  807.             moveq               #0,D0
  808.             dc.w                $A82A
  809.         EndM
  810.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  811.         IMPORT_CFM_FUNCTION TCGetTimeCodeAtTime
  812.     ENDIF
  813.  
  814. ;
  815. ; pascal HandlerError TCTimeCodeToString(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, StringPtr tcStr)
  816. ;
  817.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  818.         Macro
  819.         _TCTimeCodeToString
  820.             move.l              #$000C0103,-(sp)
  821.             moveq               #0,D0
  822.             dc.w                $A82A
  823.         EndM
  824.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  825.         IMPORT_CFM_FUNCTION TCTimeCodeToString
  826.     ENDIF
  827.  
  828. ;
  829. ; pascal HandlerError TCTimeCodeToFrameNumber(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, long *frameNumber)
  830. ;
  831.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  832.         Macro
  833.         _TCTimeCodeToFrameNumber
  834.             move.l              #$000C0104,-(sp)
  835.             moveq               #0,D0
  836.             dc.w                $A82A
  837.         EndM
  838.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  839.         IMPORT_CFM_FUNCTION TCTimeCodeToFrameNumber
  840.     ENDIF
  841.  
  842. ;
  843. ; pascal HandlerError TCFrameNumberToTimeCode(MediaHandler mh, long frameNumber, TimeCodeDef *tcdef, TimeCodeRecord *tcrec)
  844. ;
  845.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  846.         Macro
  847.         _TCFrameNumberToTimeCode
  848.             move.l              #$000C0105,-(sp)
  849.             moveq               #0,D0
  850.             dc.w                $A82A
  851.         EndM
  852.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  853.         IMPORT_CFM_FUNCTION TCFrameNumberToTimeCode
  854.     ENDIF
  855.  
  856. ;
  857. ; pascal HandlerError TCGetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData *srefH)
  858. ;
  859.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  860.         Macro
  861.         _TCGetSourceRef
  862.             move.l              #$00080106,-(sp)
  863.             moveq               #0,D0
  864.             dc.w                $A82A
  865.         EndM
  866.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  867.         IMPORT_CFM_FUNCTION TCGetSourceRef
  868.     ENDIF
  869.  
  870. ;
  871. ; pascal HandlerError TCSetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData srefH)
  872. ;
  873.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  874.         Macro
  875.         _TCSetSourceRef
  876.             move.l              #$00080107,-(sp)
  877.             moveq               #0,D0
  878.             dc.w                $A82A
  879.         EndM
  880.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  881.         IMPORT_CFM_FUNCTION TCSetSourceRef
  882.     ENDIF
  883.  
  884. ;
  885. ; pascal HandlerError TCSetTimeCodeFlags(MediaHandler mh, long flags, long flagsMask)
  886. ;
  887.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  888.         Macro
  889.         _TCSetTimeCodeFlags
  890.             move.l              #$00080108,-(sp)
  891.             moveq               #0,D0
  892.             dc.w                $A82A
  893.         EndM
  894.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  895.         IMPORT_CFM_FUNCTION TCSetTimeCodeFlags
  896.     ENDIF
  897.  
  898. ;
  899. ; pascal HandlerError TCGetTimeCodeFlags(MediaHandler mh, long *flags)
  900. ;
  901.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  902.         Macro
  903.         _TCGetTimeCodeFlags
  904.             move.l              #$00040109,-(sp)
  905.             moveq               #0,D0
  906.             dc.w                $A82A
  907.         EndM
  908.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  909.         IMPORT_CFM_FUNCTION TCGetTimeCodeFlags
  910.     ENDIF
  911.  
  912. ;
  913. ; pascal HandlerError TCSetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  914. ;
  915.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  916.         Macro
  917.         _TCSetDisplayOptions
  918.             move.l              #$0004010A,-(sp)
  919.             moveq               #0,D0
  920.             dc.w                $A82A
  921.         EndM
  922.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  923.         IMPORT_CFM_FUNCTION TCSetDisplayOptions
  924.     ENDIF
  925.  
  926. ;
  927. ; pascal HandlerError TCGetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  928. ;
  929.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  930.         Macro
  931.         _TCGetDisplayOptions
  932.             move.l              #$0004010B,-(sp)
  933.             moveq               #0,D0
  934.             dc.w                $A82A
  935.         EndM
  936.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  937.         IMPORT_CFM_FUNCTION TCGetDisplayOptions
  938.     ENDIF
  939.  
  940.  
  941.  
  942. ; typedef ComponentInstance             MovieImportComponent
  943.  
  944. ; typedef ComponentInstance             MovieExportComponent
  945.  
  946.  
  947. MovieImportType                    EQU        'eat '
  948. MovieExportType                    EQU        'spit'
  949.  
  950. canMovieImportHandles            EQU        $01
  951. canMovieImportFiles                EQU        $02
  952. hasMovieImportUserInterface        EQU        $04
  953. canMovieExportHandles            EQU        $08
  954. canMovieExportFiles                EQU        $10
  955. hasMovieExportUserInterface        EQU        $20
  956. dontAutoFileMovieImport            EQU        $40
  957. canMovieExportAuxDataHandle        EQU        $80
  958. canMovieImportValidateHandles    EQU        $0100
  959. canMovieImportValidateFile        EQU        $0200
  960. dontRegisterWithEasyOpen        EQU        $0400
  961. canMovieImportInPlace            EQU        $0800
  962. movieImportSubTypeIsFileExtension EQU    $1000
  963. canMovieImportPartial            EQU        $2000
  964. hasMovieImportMIMEList            EQU        $4000
  965. canMovieExportFromProcedures    EQU        $8000
  966. canMovieExportValidateMovie        EQU        $00010000
  967. movieExportNeedsResourceFork    EQU        $00020000
  968. canMovieImportDataReferences    EQU        $00040000
  969. movieExportMustGetSourceMediaType EQU    $00080000
  970. reservedForUseByGraphicsImporters EQU    $00800000
  971.  
  972. movieImportCreateTrack            EQU        1
  973. movieImportInParallel            EQU        2
  974. movieImportMustUseTrack            EQU        4
  975.  
  976. movieImportResultUsedMultipleTracks EQU    8
  977.  
  978. kMovieExportTextOnly            EQU        0
  979. kMovieExportAbsoluteTime        EQU        1
  980. kMovieExportRelativeTime        EQU        2
  981.  
  982. kMIDIImportSilenceBefore        EQU        $01
  983. kMIDIImportSilenceAfter            EQU        $02
  984. kMIDIImport20Playable            EQU        $04
  985. kMIDIImportWantLyrics            EQU        $08
  986.  
  987. kMimeInfoMimeTypeTag            EQU        'mime'
  988. kMimeInfoFileExtensionTag        EQU        'ext '
  989. kMimeInfoDescriptionTag            EQU        'desc'
  990. kMimeInfoGroupTag                EQU        'grop'
  991. kMimeInfoDoNotOverrideExistingFileTypeAssociation EQU 'nofa'
  992.  
  993. kQTFileTypeAIFF                    EQU        'AIFF'
  994. kQTFileTypeAIFC                    EQU        'AIFC'
  995. kQTFileTypeDVC                    EQU        'dvc!'
  996. kQTFileTypeMIDI                    EQU        'Midi'
  997. kQTFileTypePicture                EQU        'PICT'
  998. kQTFileTypeMovie                EQU        'MooV'
  999. kQTFileTypeText                    EQU        'TEXT'
  1000. kQTFileTypeWave                    EQU        'WAVE'
  1001. kQTFileTypeSystemSevenSound        EQU        'sfil'
  1002. kQTFileTypeMuLaw                EQU        'ULAW'
  1003. kQTFileTypeAVI                    EQU        'VfW '
  1004. kQTFileTypeSoundDesignerII        EQU        'Sd2f'
  1005. kQTFileTypeAudioCDTrack            EQU        'trak'
  1006. kQTFileTypePICS                    EQU        'PICS'
  1007. kQTFileTypeGIF                    EQU        'GIFf'
  1008. kQTFileTypePhotoShop            EQU        '8BPS'
  1009. kQTFileTypeSGIImage                EQU        '.SGI'
  1010. kQTFileTypeBMP                    EQU        'BMPf'
  1011. kQTFileTypeJPEG                    EQU        'JPEG'
  1012. kQTFileTypeJFIF                    EQU        'JPEG'
  1013. kQTFileTypeMacPaint                EQU        'PNTG'
  1014. kQTFileTypeTargaImage            EQU        'TPIC'
  1015. kQTFileTypeQuickDrawGXPicture    EQU        'qdgx'
  1016. kQTFileTypeQuickTimeImage        EQU        'qtif'
  1017. kQTFileType3DMF                    EQU        '3DMF'
  1018. ;  QTAtomTypes for atoms in import/export settings containers
  1019.  
  1020. kQTSettingsEffect                EQU        'effe'                ; Parent atom whose contents are atoms of an effects description
  1021. kQTSettingsMIDI                    EQU        'MIDI'                ; MIDI import related container
  1022. kQTSettingsMIDISettingFlags        EQU        'sttg'                ; MIDI import settings    (UInt32)
  1023. kQTSettingsText                    EQU        'text'                ; Text related container
  1024. kQTSettingsTextDescription        EQU        'desc'                ; Text settings (TextDescription record)
  1025. kQTSettingsTextSize                EQU        'size'                ; Width/height to create (FixedPoint)
  1026. kQTSettingsTextSettingFlags        EQU        'sttg'                ; Text export settings (UInt32)
  1027. kQTSettingsTextTimeFraction        EQU        'timf'                ; Movie time fraction for export (UInt32)
  1028. kQTSettingsTime                    EQU        'time'                ; Time related container
  1029. kQTSettingsAudioCDTrack            EQU        'trak'                ; Audio CD track related container
  1030. kQTSettingsAudioCDTrackRateShift EQU    'rshf'                ; Rate shift to be performed (SInt16)
  1031.  
  1032.  
  1033.  
  1034. MovieExportGetDataParams RECORD 0
  1035. recordSize                 ds.l    1                ; offset: $0 (0)
  1036. trackID                     ds.l    1                ; offset: $4 (4)
  1037. sourceTimeScale             ds.l    1                ; offset: $8 (8)
  1038. requestedTime             ds.l    1                ; offset: $C (12)
  1039. actualTime                 ds.l    1                ; offset: $10 (16)
  1040. dataPtr                     ds.l    1                ; offset: $14 (20)
  1041. dataSize                 ds.l    1                ; offset: $18 (24)
  1042. desc                     ds.l    1                ; offset: $1C (28)
  1043. descType                 ds.l    1                ; offset: $20 (32)
  1044. descSeed                 ds.l    1                ; offset: $24 (36)
  1045. requestedSampleCount     ds.l    1                ; offset: $28 (40)
  1046. actualSampleCount         ds.l    1                ; offset: $2C (44)
  1047. durationPerSample         ds.l    1                ; offset: $30 (48)
  1048. sampleFlags                 ds.l    1                ; offset: $34 (52)
  1049. sizeof                     EQU *                    ; size:   $38 (56)
  1050.                         ENDR
  1051. ;
  1052. ; pascal ComponentResult MovieImportHandle(MovieImportComponent ci, Handle dataH, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1053. ;
  1054.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1055.         Macro
  1056.         _MovieImportHandle
  1057.             move.l              #$00200001,-(sp)
  1058.             moveq               #0,D0
  1059.             dc.w                $A82A
  1060.         EndM
  1061.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1062.         IMPORT_CFM_FUNCTION MovieImportHandle
  1063.     ENDIF
  1064.  
  1065. ;
  1066. ; pascal ComponentResult MovieImportFile(MovieImportComponent ci, const FSSpec *theFile, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1067. ;
  1068.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1069.         Macro
  1070.         _MovieImportFile
  1071.             move.l              #$00200002,-(sp)
  1072.             moveq               #0,D0
  1073.             dc.w                $A82A
  1074.         EndM
  1075.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1076.         IMPORT_CFM_FUNCTION MovieImportFile
  1077.     ENDIF
  1078.  
  1079. ;
  1080. ; pascal ComponentResult MovieImportSetSampleDuration(MovieImportComponent ci, TimeValue duration, TimeScale scale)
  1081. ;
  1082.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1083.         Macro
  1084.         _MovieImportSetSampleDuration
  1085.             move.l              #$00080003,-(sp)
  1086.             moveq               #0,D0
  1087.             dc.w                $A82A
  1088.         EndM
  1089.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1090.         IMPORT_CFM_FUNCTION MovieImportSetSampleDuration
  1091.     ENDIF
  1092.  
  1093. ;
  1094. ; pascal ComponentResult MovieImportSetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1095. ;
  1096.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1097.         Macro
  1098.         _MovieImportSetSampleDescription
  1099.             move.l              #$00080004,-(sp)
  1100.             moveq               #0,D0
  1101.             dc.w                $A82A
  1102.         EndM
  1103.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1104.         IMPORT_CFM_FUNCTION MovieImportSetSampleDescription
  1105.     ENDIF
  1106.  
  1107. ;
  1108. ; pascal ComponentResult MovieImportSetMediaFile(MovieImportComponent ci, AliasHandle alias)
  1109. ;
  1110.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1111.         Macro
  1112.         _MovieImportSetMediaFile
  1113.             move.l              #$00040005,-(sp)
  1114.             moveq               #0,D0
  1115.             dc.w                $A82A
  1116.         EndM
  1117.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1118.         IMPORT_CFM_FUNCTION MovieImportSetMediaFile
  1119.     ENDIF
  1120.  
  1121. ;
  1122. ; pascal ComponentResult MovieImportSetDimensions(MovieImportComponent ci, Fixed width, Fixed height)
  1123. ;
  1124.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1125.         Macro
  1126.         _MovieImportSetDimensions
  1127.             move.l              #$00080006,-(sp)
  1128.             moveq               #0,D0
  1129.             dc.w                $A82A
  1130.         EndM
  1131.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1132.         IMPORT_CFM_FUNCTION MovieImportSetDimensions
  1133.     ENDIF
  1134.  
  1135. ;
  1136. ; pascal ComponentResult MovieImportSetChunkSize(MovieImportComponent ci, long chunkSize)
  1137. ;
  1138.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1139.         Macro
  1140.         _MovieImportSetChunkSize
  1141.             move.l              #$00040007,-(sp)
  1142.             moveq               #0,D0
  1143.             dc.w                $A82A
  1144.         EndM
  1145.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1146.         IMPORT_CFM_FUNCTION MovieImportSetChunkSize
  1147.     ENDIF
  1148.  
  1149. ;
  1150. ; pascal ComponentResult MovieImportSetProgressProc(MovieImportComponent ci, MovieProgressUPP proc, long refcon)
  1151. ;
  1152.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1153.         Macro
  1154.         _MovieImportSetProgressProc
  1155.             move.l              #$00080008,-(sp)
  1156.             moveq               #0,D0
  1157.             dc.w                $A82A
  1158.         EndM
  1159.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1160.         IMPORT_CFM_FUNCTION MovieImportSetProgressProc
  1161.     ENDIF
  1162.  
  1163. ;
  1164. ; pascal ComponentResult MovieImportSetAuxiliaryData(MovieImportComponent ci, Handle data, OSType handleType)
  1165. ;
  1166.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1167.         Macro
  1168.         _MovieImportSetAuxiliaryData
  1169.             move.l              #$00080009,-(sp)
  1170.             moveq               #0,D0
  1171.             dc.w                $A82A
  1172.         EndM
  1173.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1174.         IMPORT_CFM_FUNCTION MovieImportSetAuxiliaryData
  1175.     ENDIF
  1176.  
  1177. ;
  1178. ; pascal ComponentResult MovieImportSetFromScrap(MovieImportComponent ci, Boolean fromScrap)
  1179. ;
  1180.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1181.         Macro
  1182.         _MovieImportSetFromScrap
  1183.             move.l              #$0002000A,-(sp)
  1184.             moveq               #0,D0
  1185.             dc.w                $A82A
  1186.         EndM
  1187.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1188.         IMPORT_CFM_FUNCTION MovieImportSetFromScrap
  1189.     ENDIF
  1190.  
  1191. ;
  1192. ; pascal ComponentResult MovieImportDoUserDialog(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *canceled)
  1193. ;
  1194.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1195.         Macro
  1196.         _MovieImportDoUserDialog
  1197.             move.l              #$000C000B,-(sp)
  1198.             moveq               #0,D0
  1199.             dc.w                $A82A
  1200.         EndM
  1201.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1202.         IMPORT_CFM_FUNCTION MovieImportDoUserDialog
  1203.     ENDIF
  1204.  
  1205. ;
  1206. ; pascal ComponentResult MovieImportSetDuration(MovieImportComponent ci, TimeValue duration)
  1207. ;
  1208.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1209.         Macro
  1210.         _MovieImportSetDuration
  1211.             move.l              #$0004000C,-(sp)
  1212.             moveq               #0,D0
  1213.             dc.w                $A82A
  1214.         EndM
  1215.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1216.         IMPORT_CFM_FUNCTION MovieImportSetDuration
  1217.     ENDIF
  1218.  
  1219. ;
  1220. ; pascal ComponentResult MovieImportGetAuxiliaryDataType(MovieImportComponent ci, OSType *auxType)
  1221. ;
  1222.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1223.         Macro
  1224.         _MovieImportGetAuxiliaryDataType
  1225.             move.l              #$0004000D,-(sp)
  1226.             moveq               #0,D0
  1227.             dc.w                $A82A
  1228.         EndM
  1229.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1230.         IMPORT_CFM_FUNCTION MovieImportGetAuxiliaryDataType
  1231.     ENDIF
  1232.  
  1233. ;
  1234. ; pascal ComponentResult MovieImportValidate(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *valid)
  1235. ;
  1236.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1237.         Macro
  1238.         _MovieImportValidate
  1239.             move.l              #$000C000E,-(sp)
  1240.             moveq               #0,D0
  1241.             dc.w                $A82A
  1242.         EndM
  1243.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1244.         IMPORT_CFM_FUNCTION MovieImportValidate
  1245.     ENDIF
  1246.  
  1247. ;
  1248. ; pascal ComponentResult MovieImportGetFileType(MovieImportComponent ci, OSType *fileType)
  1249. ;
  1250.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1251.         Macro
  1252.         _MovieImportGetFileType
  1253.             move.l              #$0004000F,-(sp)
  1254.             moveq               #0,D0
  1255.             dc.w                $A82A
  1256.         EndM
  1257.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1258.         IMPORT_CFM_FUNCTION MovieImportGetFileType
  1259.     ENDIF
  1260.  
  1261. ;
  1262. ; pascal ComponentResult MovieImportDataRef(MovieImportComponent ci, Handle dataRef, OSType dataRefType, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1263. ;
  1264.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1265.         Macro
  1266.         _MovieImportDataRef
  1267.             move.l              #$00240010,-(sp)
  1268.             moveq               #0,D0
  1269.             dc.w                $A82A
  1270.         EndM
  1271.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1272.         IMPORT_CFM_FUNCTION MovieImportDataRef
  1273.     ENDIF
  1274.  
  1275. ;
  1276. ; pascal ComponentResult MovieImportGetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle *desc, OSType *mediaType)
  1277. ;
  1278.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1279.         Macro
  1280.         _MovieImportGetSampleDescription
  1281.             move.l              #$00080011,-(sp)
  1282.             moveq               #0,D0
  1283.             dc.w                $A82A
  1284.         EndM
  1285.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1286.         IMPORT_CFM_FUNCTION MovieImportGetSampleDescription
  1287.     ENDIF
  1288.  
  1289. ;
  1290. ; pascal ComponentResult MovieImportGetMIMETypeList(MovieImportComponent ci, QTAtomContainer *mimeInfo)
  1291. ;
  1292.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1293.         Macro
  1294.         _MovieImportGetMIMETypeList
  1295.             move.l              #$00040012,-(sp)
  1296.             moveq               #0,D0
  1297.             dc.w                $A82A
  1298.         EndM
  1299.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1300.         IMPORT_CFM_FUNCTION MovieImportGetMIMETypeList
  1301.     ENDIF
  1302.  
  1303. ;
  1304. ; pascal ComponentResult MovieImportSetOffsetAndLimit(MovieImportComponent ci, unsigned long offset, unsigned long limit)
  1305. ;
  1306.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1307.         Macro
  1308.         _MovieImportSetOffsetAndLimit
  1309.             move.l              #$00080013,-(sp)
  1310.             moveq               #0,D0
  1311.             dc.w                $A82A
  1312.         EndM
  1313.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1314.         IMPORT_CFM_FUNCTION MovieImportSetOffsetAndLimit
  1315.     ENDIF
  1316.  
  1317. ;
  1318. ; pascal ComponentResult MovieImportGetSettingsAsAtomContainer(MovieImportComponent ci, QTAtomContainer *settings)
  1319. ;
  1320.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1321.         Macro
  1322.         _MovieImportGetSettingsAsAtomContainer
  1323.             move.l              #$00040014,-(sp)
  1324.             moveq               #0,D0
  1325.             dc.w                $A82A
  1326.         EndM
  1327.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1328.         IMPORT_CFM_FUNCTION MovieImportGetSettingsAsAtomContainer
  1329.     ENDIF
  1330.  
  1331. ;
  1332. ; pascal ComponentResult MovieImportSetSettingsFromAtomContainer(MovieImportComponent ci, QTAtomContainer settings)
  1333. ;
  1334.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1335.         Macro
  1336.         _MovieImportSetSettingsFromAtomContainer
  1337.             move.l              #$00040015,-(sp)
  1338.             moveq               #0,D0
  1339.             dc.w                $A82A
  1340.         EndM
  1341.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1342.         IMPORT_CFM_FUNCTION MovieImportSetSettingsFromAtomContainer
  1343.     ENDIF
  1344.  
  1345. ;
  1346. ; pascal ComponentResult MovieExportToHandle(MovieExportComponent ci, Handle dataH, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1347. ;
  1348.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1349.         Macro
  1350.         _MovieExportToHandle
  1351.             move.l              #$00140080,-(sp)
  1352.             moveq               #0,D0
  1353.             dc.w                $A82A
  1354.         EndM
  1355.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1356.         IMPORT_CFM_FUNCTION MovieExportToHandle
  1357.     ENDIF
  1358.  
  1359. ;
  1360. ; pascal ComponentResult MovieExportToFile(MovieExportComponent ci, const FSSpec *theFile, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1361. ;
  1362.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1363.         Macro
  1364.         _MovieExportToFile
  1365.             move.l              #$00140081,-(sp)
  1366.             moveq               #0,D0
  1367.             dc.w                $A82A
  1368.         EndM
  1369.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1370.         IMPORT_CFM_FUNCTION MovieExportToFile
  1371.     ENDIF
  1372.  
  1373. ;
  1374. ; pascal ComponentResult MovieExportGetAuxiliaryData(MovieExportComponent ci, Handle dataH, OSType *handleType)
  1375. ;
  1376.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1377.         Macro
  1378.         _MovieExportGetAuxiliaryData
  1379.             move.l              #$00080083,-(sp)
  1380.             moveq               #0,D0
  1381.             dc.w                $A82A
  1382.         EndM
  1383.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1384.         IMPORT_CFM_FUNCTION MovieExportGetAuxiliaryData
  1385.     ENDIF
  1386.  
  1387. ;
  1388. ; pascal ComponentResult MovieExportSetProgressProc(MovieExportComponent ci, MovieProgressUPP proc, long refcon)
  1389. ;
  1390.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1391.         Macro
  1392.         _MovieExportSetProgressProc
  1393.             move.l              #$00080084,-(sp)
  1394.             moveq               #0,D0
  1395.             dc.w                $A82A
  1396.         EndM
  1397.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1398.         IMPORT_CFM_FUNCTION MovieExportSetProgressProc
  1399.     ENDIF
  1400.  
  1401. ;
  1402. ; pascal ComponentResult MovieExportSetSampleDescription(MovieExportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1403. ;
  1404.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1405.         Macro
  1406.         _MovieExportSetSampleDescription
  1407.             move.l              #$00080085,-(sp)
  1408.             moveq               #0,D0
  1409.             dc.w                $A82A
  1410.         EndM
  1411.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1412.         IMPORT_CFM_FUNCTION MovieExportSetSampleDescription
  1413.     ENDIF
  1414.  
  1415. ;
  1416. ; pascal ComponentResult MovieExportDoUserDialog(MovieExportComponent ci, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration, Boolean *canceled)
  1417. ;
  1418.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1419.         Macro
  1420.         _MovieExportDoUserDialog
  1421.             move.l              #$00140086,-(sp)
  1422.             moveq               #0,D0
  1423.             dc.w                $A82A
  1424.         EndM
  1425.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1426.         IMPORT_CFM_FUNCTION MovieExportDoUserDialog
  1427.     ENDIF
  1428.  
  1429. ;
  1430. ; pascal ComponentResult MovieExportGetCreatorType(MovieExportComponent ci, OSType *creator)
  1431. ;
  1432.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1433.         Macro
  1434.         _MovieExportGetCreatorType
  1435.             move.l              #$00040087,-(sp)
  1436.             moveq               #0,D0
  1437.             dc.w                $A82A
  1438.         EndM
  1439.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1440.         IMPORT_CFM_FUNCTION MovieExportGetCreatorType
  1441.     ENDIF
  1442.  
  1443. ;
  1444. ; pascal ComponentResult MovieExportToDataRef(MovieExportComponent ci, Handle dataRef, OSType dataRefType, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1445. ;
  1446.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1447.         Macro
  1448.         _MovieExportToDataRef
  1449.             move.l              #$00180088,-(sp)
  1450.             moveq               #0,D0
  1451.             dc.w                $A82A
  1452.         EndM
  1453.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1454.         IMPORT_CFM_FUNCTION MovieExportToDataRef
  1455.     ENDIF
  1456.  
  1457. ;
  1458. ; pascal ComponentResult MovieExportFromProceduresToDataRef(MovieExportComponent ci, Handle dataRef, OSType dataRefType)
  1459. ;
  1460.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1461.         Macro
  1462.         _MovieExportFromProceduresToDataRef
  1463.             move.l              #$00080089,-(sp)
  1464.             moveq               #0,D0
  1465.             dc.w                $A82A
  1466.         EndM
  1467.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1468.         IMPORT_CFM_FUNCTION MovieExportFromProceduresToDataRef
  1469.     ENDIF
  1470.  
  1471. ;
  1472. ; pascal ComponentResult MovieExportAddDataSource(MovieExportComponent ci, OSType trackType, TimeScale scale, long *trackID, MovieExportGetPropertyUPP getPropertyProc, MovieExportGetDataUPP getDataProc, void *refCon)
  1473. ;
  1474.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1475.         Macro
  1476.         _MovieExportAddDataSource
  1477.             move.l              #$0018008A,-(sp)
  1478.             moveq               #0,D0
  1479.             dc.w                $A82A
  1480.         EndM
  1481.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1482.         IMPORT_CFM_FUNCTION MovieExportAddDataSource
  1483.     ENDIF
  1484.  
  1485. ;
  1486. ; pascal ComponentResult MovieExportValidate(MovieExportComponent ci, Movie theMovie, Track onlyThisTrack, Boolean *valid)
  1487. ;
  1488.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1489.         Macro
  1490.         _MovieExportValidate
  1491.             move.l              #$000C008B,-(sp)
  1492.             moveq               #0,D0
  1493.             dc.w                $A82A
  1494.         EndM
  1495.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1496.         IMPORT_CFM_FUNCTION MovieExportValidate
  1497.     ENDIF
  1498.  
  1499. ;
  1500. ; pascal ComponentResult MovieExportGetSettingsAsAtomContainer(MovieExportComponent ci, QTAtomContainer *settings)
  1501. ;
  1502.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1503.         Macro
  1504.         _MovieExportGetSettingsAsAtomContainer
  1505.             move.l              #$0004008C,-(sp)
  1506.             moveq               #0,D0
  1507.             dc.w                $A82A
  1508.         EndM
  1509.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1510.         IMPORT_CFM_FUNCTION MovieExportGetSettingsAsAtomContainer
  1511.     ENDIF
  1512.  
  1513. ;
  1514. ; pascal ComponentResult MovieExportSetSettingsFromAtomContainer(MovieExportComponent ci, QTAtomContainer settings)
  1515. ;
  1516.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1517.         Macro
  1518.         _MovieExportSetSettingsFromAtomContainer
  1519.             move.l              #$0004008D,-(sp)
  1520.             moveq               #0,D0
  1521.             dc.w                $A82A
  1522.         EndM
  1523.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1524.         IMPORT_CFM_FUNCTION MovieExportSetSettingsFromAtomContainer
  1525.     ENDIF
  1526.  
  1527. ;
  1528. ; pascal ComponentResult MovieExportGetFileNameExtension(MovieExportComponent ci, OSType *extension)
  1529. ;
  1530.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1531.         Macro
  1532.         _MovieExportGetFileNameExtension
  1533.             move.l              #$0004008E,-(sp)
  1534.             moveq               #0,D0
  1535.             dc.w                $A82A
  1536.         EndM
  1537.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1538.         IMPORT_CFM_FUNCTION MovieExportGetFileNameExtension
  1539.     ENDIF
  1540.  
  1541. ;
  1542. ; pascal ComponentResult MovieExportGetShortFileTypeString(MovieExportComponent ci, Str255 typeString)
  1543. ;
  1544.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1545.         Macro
  1546.         _MovieExportGetShortFileTypeString
  1547.             move.l              #$0004008F,-(sp)
  1548.             moveq               #0,D0
  1549.             dc.w                $A82A
  1550.         EndM
  1551.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1552.         IMPORT_CFM_FUNCTION MovieExportGetShortFileTypeString
  1553.     ENDIF
  1554.  
  1555. ;
  1556. ; pascal ComponentResult MovieExportGetSourceMediaType(MovieExportComponent ci, OSType *mediaType)
  1557. ;
  1558.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1559.         Macro
  1560.         _MovieExportGetSourceMediaType
  1561.             move.l              #$00040090,-(sp)
  1562.             moveq               #0,D0
  1563.             dc.w                $A82A
  1564.         EndM
  1565.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1566.         IMPORT_CFM_FUNCTION MovieExportGetSourceMediaType
  1567.     ENDIF
  1568.  
  1569.      IF ¬ TARGET_CPU_PPC THEN 
  1570. ;  Text Export Display Info data structure
  1571. TextDisplayData            RECORD 0
  1572. displayFlags             ds.l    1                ; offset: $0 (0)
  1573. textJustification         ds.l    1                ; offset: $4 (4)
  1574. bgColor                     ds        RGBColor        ; offset: $8 (8)
  1575. textBox                     ds        Rect            ; offset: $E (14)
  1576. beginHilite                 ds.w    1                ; offset: $16 (22)
  1577. endHilite                 ds.w    1                ; offset: $18 (24)
  1578. hiliteColor                 ds        RGBColor        ; offset: $1A (26)
  1579. doHiliteColor             ds.b    1                ; offset: $20 (32)
  1580. filler                     ds.b    1                ; offset: $21 (33)
  1581. scrollDelayDur             ds.l    1                ; offset: $22 (34)
  1582. dropShadowOffset         ds        Point            ; offset: $26 (38)
  1583. dropShadowTransparency     ds.w    1                ; offset: $2A (42)
  1584. sizeof                     EQU *                    ; size:   $2C (44)
  1585.                         ENDR
  1586.     ENDIF
  1587. ; typedef ComponentInstance             TextExportComponent
  1588.  
  1589. ; typedef ComponentInstance             GraphicImageMovieImportComponent
  1590.  
  1591. ;
  1592. ; pascal ComponentResult TextExportGetDisplayData(TextExportComponent ci, TextDisplayData *textDisplay)
  1593. ;
  1594.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1595.         Macro
  1596.         _TextExportGetDisplayData
  1597.             move.l              #$00040100,-(sp)
  1598.             moveq               #0,D0
  1599.             dc.w                $A82A
  1600.         EndM
  1601.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1602.         IMPORT_CFM_FUNCTION TextExportGetDisplayData
  1603.     ENDIF
  1604.  
  1605. ;
  1606. ; pascal ComponentResult TextExportGetTimeFraction(TextExportComponent ci, long *movieTimeFraction)
  1607. ;
  1608.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1609.         Macro
  1610.         _TextExportGetTimeFraction
  1611.             move.l              #$00040101,-(sp)
  1612.             moveq               #0,D0
  1613.             dc.w                $A82A
  1614.         EndM
  1615.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1616.         IMPORT_CFM_FUNCTION TextExportGetTimeFraction
  1617.     ENDIF
  1618.  
  1619. ;
  1620. ; pascal ComponentResult TextExportSetTimeFraction(TextExportComponent ci, long movieTimeFraction)
  1621. ;
  1622.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1623.         Macro
  1624.         _TextExportSetTimeFraction
  1625.             move.l              #$00040102,-(sp)
  1626.             moveq               #0,D0
  1627.             dc.w                $A82A
  1628.         EndM
  1629.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1630.         IMPORT_CFM_FUNCTION TextExportSetTimeFraction
  1631.     ENDIF
  1632.  
  1633. ;
  1634. ; pascal ComponentResult TextExportGetSettings(TextExportComponent ci, long *setting)
  1635. ;
  1636.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1637.         Macro
  1638.         _TextExportGetSettings
  1639.             move.l              #$00040103,-(sp)
  1640.             moveq               #0,D0
  1641.             dc.w                $A82A
  1642.         EndM
  1643.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1644.         IMPORT_CFM_FUNCTION TextExportGetSettings
  1645.     ENDIF
  1646.  
  1647. ;
  1648. ; pascal ComponentResult TextExportSetSettings(TextExportComponent ci, long setting)
  1649. ;
  1650.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1651.         Macro
  1652.         _TextExportSetSettings
  1653.             move.l              #$00040104,-(sp)
  1654.             moveq               #0,D0
  1655.             dc.w                $A82A
  1656.         EndM
  1657.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1658.         IMPORT_CFM_FUNCTION TextExportSetSettings
  1659.     ENDIF
  1660.  
  1661.  
  1662. ;
  1663. ; pascal ComponentResult MIDIImportGetSettings(TextExportComponent ci, long *setting)
  1664. ;
  1665.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1666.         Macro
  1667.         _MIDIImportGetSettings
  1668.             move.l              #$00040100,-(sp)
  1669.             moveq               #0,D0
  1670.             dc.w                $A82A
  1671.         EndM
  1672.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1673.         IMPORT_CFM_FUNCTION MIDIImportGetSettings
  1674.     ENDIF
  1675.  
  1676. ;
  1677. ; pascal ComponentResult MIDIImportSetSettings(TextExportComponent ci, long setting)
  1678. ;
  1679.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1680.         Macro
  1681.         _MIDIImportSetSettings
  1682.             move.l              #$00040101,-(sp)
  1683.             moveq               #0,D0
  1684.             dc.w                $A82A
  1685.         EndM
  1686.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1687.         IMPORT_CFM_FUNCTION MIDIImportSetSettings
  1688.     ENDIF
  1689.  
  1690. ;
  1691. ; pascal ComponentResult MovieExportNewGetDataAndPropertiesProcs(MovieExportComponent ci, OSType trackType, TimeScale *scale, Movie theMovie, Track theTrack, TimeValue startTime, TimeValue duration, MovieExportGetPropertyUPP *getPropertyProc, MovieExportGetDataUPP *getDataProc, void **refCon)
  1692. ;
  1693.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1694.         Macro
  1695.         _MovieExportNewGetDataAndPropertiesProcs
  1696.             move.l              #$00240100,-(sp)
  1697.             moveq               #0,D0
  1698.             dc.w                $A82A
  1699.         EndM
  1700.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1701.         IMPORT_CFM_FUNCTION MovieExportNewGetDataAndPropertiesProcs
  1702.     ENDIF
  1703.  
  1704. ;
  1705. ; pascal ComponentResult MovieExportDisposeGetDataAndPropertiesProcs(MovieExportComponent ci, MovieExportGetPropertyUPP getPropertyProc, MovieExportGetDataUPP getDataProc, void *refCon)
  1706. ;
  1707.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1708.         Macro
  1709.         _MovieExportDisposeGetDataAndPropertiesProcs
  1710.             move.l              #$000C0101,-(sp)
  1711.             moveq               #0,D0
  1712.             dc.w                $A82A
  1713.         EndM
  1714.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1715.         IMPORT_CFM_FUNCTION MovieExportDisposeGetDataAndPropertiesProcs
  1716.     ENDIF
  1717.  
  1718.  
  1719. movieExportWidth                EQU        'wdth'                ; pointer to Fixed
  1720. movieExportHeight                EQU        'hegt'                ; pointer to Fixed
  1721. movieExportDuration                EQU        'dura'                ; pointer to TimeRecord
  1722. movieExportVideoFilter            EQU        'iflt'                ; pointer to QTAtomContainer
  1723. ;
  1724. ; pascal ComponentResult GraphicsImageImportSetSequenceEnabled(GraphicImageMovieImportComponent ci, Boolean enable)
  1725. ;
  1726.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1727.         Macro
  1728.         _GraphicsImageImportSetSequenceEnabled
  1729.             move.l              #$00020100,-(sp)
  1730.             moveq               #0,D0
  1731.             dc.w                $A82A
  1732.         EndM
  1733.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1734.         IMPORT_CFM_FUNCTION GraphicsImageImportSetSequenceEnabled
  1735.     ENDIF
  1736.  
  1737. ;
  1738. ; pascal ComponentResult GraphicsImageImportGetSequenceEnabled(GraphicImageMovieImportComponent ci, Boolean *enable)
  1739. ;
  1740.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1741.         Macro
  1742.         _GraphicsImageImportGetSequenceEnabled
  1743.             move.l              #$00040101,-(sp)
  1744.             moveq               #0,D0
  1745.             dc.w                $A82A
  1746.         EndM
  1747.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1748.         IMPORT_CFM_FUNCTION GraphicsImageImportGetSequenceEnabled
  1749.     ENDIF
  1750.  
  1751.  
  1752.  
  1753.  
  1754.  
  1755.  
  1756.  
  1757.  
  1758. ; ***************
  1759. ;
  1760. ;    File Preview Components
  1761. ;
  1762. ;**************
  1763.  
  1764. ; typedef ComponentInstance             pnotComponent
  1765.  
  1766.  
  1767. pnotComponentWantsEvents        EQU        1
  1768. pnotComponentNeedsNoCache        EQU        2
  1769.  
  1770. ShowFilePreviewComponentType    EQU        'pnot'
  1771. CreateFilePreviewComponentType    EQU        'pmak'
  1772. ;
  1773. ; pascal ComponentResult PreviewShowData(pnotComponent p, OSType dataType, Handle data, const Rect *inHere)
  1774. ;
  1775.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1776.         Macro
  1777.         _PreviewShowData
  1778.             move.l              #$000C0001,-(sp)
  1779.             moveq               #0,D0
  1780.             dc.w                $A82A
  1781.         EndM
  1782.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1783.         IMPORT_CFM_FUNCTION PreviewShowData
  1784.     ENDIF
  1785.  
  1786. ;
  1787. ; pascal ComponentResult PreviewMakePreview(pnotComponent p, OSType *previewType, Handle *previewResult, const FSSpec *sourceFile, ICMProgressProcRecordPtr progress)
  1788. ;
  1789.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1790.         Macro
  1791.         _PreviewMakePreview
  1792.             move.l              #$00100002,-(sp)
  1793.             moveq               #0,D0
  1794.             dc.w                $A82A
  1795.         EndM
  1796.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1797.         IMPORT_CFM_FUNCTION PreviewMakePreview
  1798.     ENDIF
  1799.  
  1800. ;
  1801. ; pascal ComponentResult PreviewMakePreviewReference(pnotComponent p, OSType *previewType, short *resID, const FSSpec *sourceFile)
  1802. ;
  1803.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1804.         Macro
  1805.         _PreviewMakePreviewReference
  1806.             move.l              #$000C0003,-(sp)
  1807.             moveq               #0,D0
  1808.             dc.w                $A82A
  1809.         EndM
  1810.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1811.         IMPORT_CFM_FUNCTION PreviewMakePreviewReference
  1812.     ENDIF
  1813.  
  1814. ;
  1815. ; pascal ComponentResult PreviewEvent(pnotComponent p, EventRecord *e, Boolean *handledEvent)
  1816. ;
  1817.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1818.         Macro
  1819.         _PreviewEvent
  1820.             move.l              #$00080004,-(sp)
  1821.             moveq               #0,D0
  1822.             dc.w                $A82A
  1823.         EndM
  1824.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1825.         IMPORT_CFM_FUNCTION PreviewEvent
  1826.     ENDIF
  1827.  
  1828.  
  1829.  
  1830. ; typedef ComponentInstance             DataCompressorComponent
  1831.  
  1832. ; typedef ComponentInstance             DataDecompressorComponent
  1833.  
  1834. ; typedef ComponentInstance             DataCodecComponent
  1835.  
  1836.  
  1837. DataCompressorComponentType        EQU        'dcom'
  1838. DataDecompressorComponentType    EQU        'ddec'
  1839. AppleDataCompressorSubType        EQU        'adec'
  1840. zlibDataCompressorSubType        EQU        'zlib'
  1841.  
  1842. ;
  1843. ; pascal ComponentResult DataCodecDecompress(DataCodecComponent dc, void *srcData, UInt32 srcSize, void *dstData, UInt32 dstBufferSize)
  1844. ;
  1845.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1846.         Macro
  1847.         _DataCodecDecompress
  1848.             move.l              #$00100001,-(sp)
  1849.             moveq               #0,D0
  1850.             dc.w                $A82A
  1851.         EndM
  1852.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1853.         IMPORT_CFM_FUNCTION DataCodecDecompress
  1854.     ENDIF
  1855.  
  1856. ;
  1857. ; pascal ComponentResult DataCodecGetCompressBufferSize(DataCodecComponent dc, UInt32 srcSize, UInt32 *dstSize)
  1858. ;
  1859.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1860.         Macro
  1861.         _DataCodecGetCompressBufferSize
  1862.             move.l              #$00080002,-(sp)
  1863.             moveq               #0,D0
  1864.             dc.w                $A82A
  1865.         EndM
  1866.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1867.         IMPORT_CFM_FUNCTION DataCodecGetCompressBufferSize
  1868.     ENDIF
  1869.  
  1870. ;
  1871. ; pascal ComponentResult DataCodecCompress(DataCodecComponent dc, void *srcData, UInt32 srcSize, void *dstData, UInt32 dstBufferSize, UInt32 *actualDstSize, UInt32 *decompressSlop)
  1872. ;
  1873.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1874.         Macro
  1875.         _DataCodecCompress
  1876.             move.l              #$00180003,-(sp)
  1877.             moveq               #0,D0
  1878.             dc.w                $A82A
  1879.         EndM
  1880.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1881.         IMPORT_CFM_FUNCTION DataCodecCompress
  1882.     ENDIF
  1883.  
  1884. ;
  1885. ; pascal ComponentResult DataCodecBeginInterruptSafe(DataCodecComponent dc, unsigned long maxSrcSize)
  1886. ;
  1887.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1888.         Macro
  1889.         _DataCodecBeginInterruptSafe
  1890.             move.l              #$00040004,-(sp)
  1891.             moveq               #0,D0
  1892.             dc.w                $A82A
  1893.         EndM
  1894.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1895.         IMPORT_CFM_FUNCTION DataCodecBeginInterruptSafe
  1896.     ENDIF
  1897.  
  1898. ;
  1899. ; pascal ComponentResult DataCodecEndInterruptSafe(DataCodecComponent dc)
  1900. ;
  1901.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1902.         Macro
  1903.         _DataCodecEndInterruptSafe
  1904.             move.l              #$00000005,-(sp)
  1905.             moveq               #0,D0
  1906.             dc.w                $A82A
  1907.         EndM
  1908.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1909.         IMPORT_CFM_FUNCTION DataCodecEndInterruptSafe
  1910.     ENDIF
  1911.  
  1912. ;
  1913. ; pascal ComponentResult DataCodecDecompressPartial(DataCodecComponent dc, void **next_in, unsigned long *avail_in, unsigned long *total_in, void **next_out, unsigned long *avail_out, unsigned long *total_out, Boolean *didFinish)
  1914. ;
  1915.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1916.         Macro
  1917.         _DataCodecDecompressPartial
  1918.             move.l              #$001C0006,-(sp)
  1919.             moveq               #0,D0
  1920.             dc.w                $A82A
  1921.         EndM
  1922.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1923.         IMPORT_CFM_FUNCTION DataCodecDecompressPartial
  1924.     ENDIF
  1925.  
  1926. ;
  1927. ; pascal ComponentResult DataCodecCompressPartial(DataCodecComponent dc, void **next_in, unsigned long *avail_in, unsigned long *total_in, void **next_out, unsigned long *avail_out, unsigned long *total_out, Boolean tryToFinish, Boolean *didFinish)
  1928. ;
  1929.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1930.         Macro
  1931.         _DataCodecCompressPartial
  1932.             move.l              #$001E0007,-(sp)
  1933.             moveq               #0,D0
  1934.             dc.w                $A82A
  1935.         EndM
  1936.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1937.         IMPORT_CFM_FUNCTION DataCodecCompressPartial
  1938.     ENDIF
  1939.  
  1940.  
  1941.  
  1942.  
  1943.  
  1944.  
  1945. kDataHCanRead                    EQU        $00000001
  1946. kDataHSpecialRead                EQU        $00000002
  1947. kDataHSpecialReadFile            EQU        $00000004
  1948. kDataHCanWrite                    EQU        $00000008
  1949. kDataHSpecialWrite                EQU        $10
  1950. kDataHSpecialWriteFile            EQU        $20
  1951. kDataHCanStreamingWrite            EQU        $40
  1952. kDataHMustCheckDataRef            EQU        $80
  1953. DataHVolumeListRecord    RECORD 0
  1954. vRefNum                     ds.w    1                ; offset: $0 (0)
  1955. flags                     ds.l    1                ; offset: $2 (2)
  1956. sizeof                     EQU *                    ; size:   $6 (6)
  1957.                         ENDR
  1958. ; typedef struct DataHVolumeListRecord * DataHVolumeListPtr
  1959.  
  1960. ; typedef DataHVolumeListPtr *            DataHVolumeList
  1961.  
  1962.  
  1963. kDataHExtendedSchedule            EQU        'xtnd'
  1964. DataHScheduleRecord        RECORD 0
  1965. timeNeededBy             ds        TimeRecord        ; offset: $0 (0)
  1966. extendedID                 ds.l    1                ; offset: $10 (16)        ;  always is kDataHExtendedSchedule
  1967. extendedVers             ds.l    1                ; offset: $14 (20)        ;  always set to 0
  1968. priority                 ds.l    1                ; offset: $18 (24)        ;  100.0 or more means must have. lower numbers…
  1969. sizeof                     EQU *                    ; size:   $1C (28)
  1970.                         ENDR
  1971. ; typedef struct DataHScheduleRecord *    DataHSchedulePtr
  1972.  
  1973.  
  1974.  
  1975. ;
  1976. ; pascal ComponentResult DataHGetData(DataHandler dh, Handle h, long hOffset, long offset, long size)
  1977. ;
  1978.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1979.         Macro
  1980.         _DataHGetData
  1981.             move.l              #$00100002,-(sp)
  1982.             moveq               #0,D0
  1983.             dc.w                $A82A
  1984.         EndM
  1985.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1986.         IMPORT_CFM_FUNCTION DataHGetData
  1987.     ENDIF
  1988.  
  1989. ;
  1990. ; pascal ComponentResult DataHPutData(DataHandler dh, Handle h, long hOffset, long *offset, long size)
  1991. ;
  1992.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1993.         Macro
  1994.         _DataHPutData
  1995.             move.l              #$00100003,-(sp)
  1996.             moveq               #0,D0
  1997.             dc.w                $A82A
  1998.         EndM
  1999.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2000.         IMPORT_CFM_FUNCTION DataHPutData
  2001.     ENDIF
  2002.  
  2003. ;
  2004. ; pascal ComponentResult DataHFlushData(DataHandler dh)
  2005. ;
  2006.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2007.         Macro
  2008.         _DataHFlushData
  2009.             move.l              #$00000004,-(sp)
  2010.             moveq               #0,D0
  2011.             dc.w                $A82A
  2012.         EndM
  2013.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2014.         IMPORT_CFM_FUNCTION DataHFlushData
  2015.     ENDIF
  2016.  
  2017. ;
  2018. ; pascal ComponentResult DataHOpenForWrite(DataHandler dh)
  2019. ;
  2020.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2021.         Macro
  2022.         _DataHOpenForWrite
  2023.             move.l              #$00000005,-(sp)
  2024.             moveq               #0,D0
  2025.             dc.w                $A82A
  2026.         EndM
  2027.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2028.         IMPORT_CFM_FUNCTION DataHOpenForWrite
  2029.     ENDIF
  2030.  
  2031. ;
  2032. ; pascal ComponentResult DataHCloseForWrite(DataHandler dh)
  2033. ;
  2034.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2035.         Macro
  2036.         _DataHCloseForWrite
  2037.             move.l              #$00000006,-(sp)
  2038.             moveq               #0,D0
  2039.             dc.w                $A82A
  2040.         EndM
  2041.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2042.         IMPORT_CFM_FUNCTION DataHCloseForWrite
  2043.     ENDIF
  2044.  
  2045.  
  2046. ;
  2047. ; pascal ComponentResult DataHOpenForRead(DataHandler dh)
  2048. ;
  2049.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2050.         Macro
  2051.         _DataHOpenForRead
  2052.             move.l              #$00000008,-(sp)
  2053.             moveq               #0,D0
  2054.             dc.w                $A82A
  2055.         EndM
  2056.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2057.         IMPORT_CFM_FUNCTION DataHOpenForRead
  2058.     ENDIF
  2059.  
  2060. ;
  2061. ; pascal ComponentResult DataHCloseForRead(DataHandler dh)
  2062. ;
  2063.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2064.         Macro
  2065.         _DataHCloseForRead
  2066.             move.l              #$00000009,-(sp)
  2067.             moveq               #0,D0
  2068.             dc.w                $A82A
  2069.         EndM
  2070.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2071.         IMPORT_CFM_FUNCTION DataHCloseForRead
  2072.     ENDIF
  2073.  
  2074. ;
  2075. ; pascal ComponentResult DataHSetDataRef(DataHandler dh, Handle dataRef)
  2076. ;
  2077.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2078.         Macro
  2079.         _DataHSetDataRef
  2080.             move.l              #$0004000A,-(sp)
  2081.             moveq               #0,D0
  2082.             dc.w                $A82A
  2083.         EndM
  2084.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2085.         IMPORT_CFM_FUNCTION DataHSetDataRef
  2086.     ENDIF
  2087.  
  2088. ;
  2089. ; pascal ComponentResult DataHGetDataRef(DataHandler dh, Handle *dataRef)
  2090. ;
  2091.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2092.         Macro
  2093.         _DataHGetDataRef
  2094.             move.l              #$0004000B,-(sp)
  2095.             moveq               #0,D0
  2096.             dc.w                $A82A
  2097.         EndM
  2098.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2099.         IMPORT_CFM_FUNCTION DataHGetDataRef
  2100.     ENDIF
  2101.  
  2102. ;
  2103. ; pascal ComponentResult DataHCompareDataRef(DataHandler dh, Handle dataRef, Boolean *equal)
  2104. ;
  2105.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2106.         Macro
  2107.         _DataHCompareDataRef
  2108.             move.l              #$0008000C,-(sp)
  2109.             moveq               #0,D0
  2110.             dc.w                $A82A
  2111.         EndM
  2112.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2113.         IMPORT_CFM_FUNCTION DataHCompareDataRef
  2114.     ENDIF
  2115.  
  2116. ;
  2117. ; pascal ComponentResult DataHTask(DataHandler dh)
  2118. ;
  2119.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2120.         Macro
  2121.         _DataHTask
  2122.             move.l              #$0000000D,-(sp)
  2123.             moveq               #0,D0
  2124.             dc.w                $A82A
  2125.         EndM
  2126.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2127.         IMPORT_CFM_FUNCTION DataHTask
  2128.     ENDIF
  2129.  
  2130. ;
  2131. ; pascal ComponentResult DataHScheduleData(DataHandler dh, Ptr PlaceToPutDataPtr, long FileOffset, long DataSize, long RefCon, DataHSchedulePtr scheduleRec, DataHCompletionUPP CompletionRtn)
  2132. ;
  2133.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2134.         Macro
  2135.         _DataHScheduleData
  2136.             move.l              #$0018000E,-(sp)
  2137.             moveq               #0,D0
  2138.             dc.w                $A82A
  2139.         EndM
  2140.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2141.         IMPORT_CFM_FUNCTION DataHScheduleData
  2142.     ENDIF
  2143.  
  2144. ;
  2145. ; pascal ComponentResult DataHFinishData(DataHandler dh, Ptr PlaceToPutDataPtr, Boolean Cancel)
  2146. ;
  2147.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2148.         Macro
  2149.         _DataHFinishData
  2150.             move.l              #$0006000F,-(sp)
  2151.             moveq               #0,D0
  2152.             dc.w                $A82A
  2153.         EndM
  2154.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2155.         IMPORT_CFM_FUNCTION DataHFinishData
  2156.     ENDIF
  2157.  
  2158. ;
  2159. ; pascal ComponentResult DataHFlushCache(DataHandler dh)
  2160. ;
  2161.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2162.         Macro
  2163.         _DataHFlushCache
  2164.             move.l              #$00000010,-(sp)
  2165.             moveq               #0,D0
  2166.             dc.w                $A82A
  2167.         EndM
  2168.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2169.         IMPORT_CFM_FUNCTION DataHFlushCache
  2170.     ENDIF
  2171.  
  2172. ;
  2173. ; pascal ComponentResult DataHResolveDataRef(DataHandler dh, Handle theDataRef, Boolean *wasChanged, Boolean userInterfaceAllowed)
  2174. ;
  2175.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2176.         Macro
  2177.         _DataHResolveDataRef
  2178.             move.l              #$000A0011,-(sp)
  2179.             moveq               #0,D0
  2180.             dc.w                $A82A
  2181.         EndM
  2182.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2183.         IMPORT_CFM_FUNCTION DataHResolveDataRef
  2184.     ENDIF
  2185.  
  2186. ;
  2187. ; pascal ComponentResult DataHGetFileSize(DataHandler dh, long *fileSize)
  2188. ;
  2189.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2190.         Macro
  2191.         _DataHGetFileSize
  2192.             move.l              #$00040012,-(sp)
  2193.             moveq               #0,D0
  2194.             dc.w                $A82A
  2195.         EndM
  2196.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2197.         IMPORT_CFM_FUNCTION DataHGetFileSize
  2198.     ENDIF
  2199.  
  2200. ;
  2201. ; pascal ComponentResult DataHCanUseDataRef(DataHandler dh, Handle dataRef, long *useFlags)
  2202. ;
  2203.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2204.         Macro
  2205.         _DataHCanUseDataRef
  2206.             move.l              #$00080013,-(sp)
  2207.             moveq               #0,D0
  2208.             dc.w                $A82A
  2209.         EndM
  2210.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2211.         IMPORT_CFM_FUNCTION DataHCanUseDataRef
  2212.     ENDIF
  2213.  
  2214. ;
  2215. ; pascal ComponentResult DataHGetVolumeList(DataHandler dh, DataHVolumeList *volumeList)
  2216. ;
  2217.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2218.         Macro
  2219.         _DataHGetVolumeList
  2220.             move.l              #$00040014,-(sp)
  2221.             moveq               #0,D0
  2222.             dc.w                $A82A
  2223.         EndM
  2224.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2225.         IMPORT_CFM_FUNCTION DataHGetVolumeList
  2226.     ENDIF
  2227.  
  2228. ;
  2229. ; pascal ComponentResult DataHWrite(DataHandler dh, Ptr data, long offset, long size, DataHCompletionUPP completion, long refCon)
  2230. ;
  2231.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2232.         Macro
  2233.         _DataHWrite
  2234.             move.l              #$00140015,-(sp)
  2235.             moveq               #0,D0
  2236.             dc.w                $A82A
  2237.         EndM
  2238.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2239.         IMPORT_CFM_FUNCTION DataHWrite
  2240.     ENDIF
  2241.  
  2242. ;
  2243. ; pascal ComponentResult DataHPreextend(DataHandler dh, unsigned long maxToAdd, unsigned long *spaceAdded)
  2244. ;
  2245.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2246.         Macro
  2247.         _DataHPreextend
  2248.             move.l              #$00080016,-(sp)
  2249.             moveq               #0,D0
  2250.             dc.w                $A82A
  2251.         EndM
  2252.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2253.         IMPORT_CFM_FUNCTION DataHPreextend
  2254.     ENDIF
  2255.  
  2256. ;
  2257. ; pascal ComponentResult DataHSetFileSize(DataHandler dh, long fileSize)
  2258. ;
  2259.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2260.         Macro
  2261.         _DataHSetFileSize
  2262.             move.l              #$00040017,-(sp)
  2263.             moveq               #0,D0
  2264.             dc.w                $A82A
  2265.         EndM
  2266.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2267.         IMPORT_CFM_FUNCTION DataHSetFileSize
  2268.     ENDIF
  2269.  
  2270. ;
  2271. ; pascal ComponentResult DataHGetFreeSpace(DataHandler dh, unsigned long *freeSize)
  2272. ;
  2273.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2274.         Macro
  2275.         _DataHGetFreeSpace
  2276.             move.l              #$00040018,-(sp)
  2277.             moveq               #0,D0
  2278.             dc.w                $A82A
  2279.         EndM
  2280.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2281.         IMPORT_CFM_FUNCTION DataHGetFreeSpace
  2282.     ENDIF
  2283.  
  2284. ;
  2285. ; pascal ComponentResult DataHCreateFile(DataHandler dh, OSType creator, Boolean deleteExisting)
  2286. ;
  2287.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2288.         Macro
  2289.         _DataHCreateFile
  2290.             move.l              #$00060019,-(sp)
  2291.             moveq               #0,D0
  2292.             dc.w                $A82A
  2293.         EndM
  2294.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2295.         IMPORT_CFM_FUNCTION DataHCreateFile
  2296.     ENDIF
  2297.  
  2298. ;
  2299. ; pascal ComponentResult DataHGetPreferredBlockSize(DataHandler dh, long *blockSize)
  2300. ;
  2301.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2302.         Macro
  2303.         _DataHGetPreferredBlockSize
  2304.             move.l              #$0004001A,-(sp)
  2305.             moveq               #0,D0
  2306.             dc.w                $A82A
  2307.         EndM
  2308.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2309.         IMPORT_CFM_FUNCTION DataHGetPreferredBlockSize
  2310.     ENDIF
  2311.  
  2312. ;
  2313. ; pascal ComponentResult DataHGetDeviceIndex(DataHandler dh, long *deviceIndex)
  2314. ;
  2315.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2316.         Macro
  2317.         _DataHGetDeviceIndex
  2318.             move.l              #$0004001B,-(sp)
  2319.             moveq               #0,D0
  2320.             dc.w                $A82A
  2321.         EndM
  2322.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2323.         IMPORT_CFM_FUNCTION DataHGetDeviceIndex
  2324.     ENDIF
  2325.  
  2326. ;
  2327. ; pascal ComponentResult DataHIsStreamingDataHandler(DataHandler dh, Boolean *yes)
  2328. ;
  2329.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2330.         Macro
  2331.         _DataHIsStreamingDataHandler
  2332.             move.l              #$0004001C,-(sp)
  2333.             moveq               #0,D0
  2334.             dc.w                $A82A
  2335.         EndM
  2336.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2337.         IMPORT_CFM_FUNCTION DataHIsStreamingDataHandler
  2338.     ENDIF
  2339.  
  2340. ;
  2341. ; pascal ComponentResult DataHGetDataInBuffer(DataHandler dh, long startOffset, long *size)
  2342. ;
  2343.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2344.         Macro
  2345.         _DataHGetDataInBuffer
  2346.             move.l              #$0008001D,-(sp)
  2347.             moveq               #0,D0
  2348.             dc.w                $A82A
  2349.         EndM
  2350.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2351.         IMPORT_CFM_FUNCTION DataHGetDataInBuffer
  2352.     ENDIF
  2353.  
  2354. ;
  2355. ; pascal ComponentResult DataHGetScheduleAheadTime(DataHandler dh, long *millisecs)
  2356. ;
  2357.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2358.         Macro
  2359.         _DataHGetScheduleAheadTime
  2360.             move.l              #$0004001E,-(sp)
  2361.             moveq               #0,D0
  2362.             dc.w                $A82A
  2363.         EndM
  2364.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2365.         IMPORT_CFM_FUNCTION DataHGetScheduleAheadTime
  2366.     ENDIF
  2367.  
  2368. ;
  2369. ; pascal ComponentResult DataHSetCacheSizeLimit(DataHandler dh, Size cacheSizeLimit)
  2370. ;
  2371.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2372.         Macro
  2373.         _DataHSetCacheSizeLimit
  2374.             move.l              #$0004001F,-(sp)
  2375.             moveq               #0,D0
  2376.             dc.w                $A82A
  2377.         EndM
  2378.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2379.         IMPORT_CFM_FUNCTION DataHSetCacheSizeLimit
  2380.     ENDIF
  2381.  
  2382. ;
  2383. ; pascal ComponentResult DataHGetCacheSizeLimit(DataHandler dh, Size *cacheSizeLimit)
  2384. ;
  2385.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2386.         Macro
  2387.         _DataHGetCacheSizeLimit
  2388.             move.l              #$00040020,-(sp)
  2389.             moveq               #0,D0
  2390.             dc.w                $A82A
  2391.         EndM
  2392.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2393.         IMPORT_CFM_FUNCTION DataHGetCacheSizeLimit
  2394.     ENDIF
  2395.  
  2396. ;
  2397. ; pascal ComponentResult DataHGetMovie(DataHandler dh, Movie *theMovie, short *id)
  2398. ;
  2399.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2400.         Macro
  2401.         _DataHGetMovie
  2402.             move.l              #$00080021,-(sp)
  2403.             moveq               #0,D0
  2404.             dc.w                $A82A
  2405.         EndM
  2406.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2407.         IMPORT_CFM_FUNCTION DataHGetMovie
  2408.     ENDIF
  2409.  
  2410. ;
  2411. ; pascal ComponentResult DataHAddMovie(DataHandler dh, Movie theMovie, short *id)
  2412. ;
  2413.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2414.         Macro
  2415.         _DataHAddMovie
  2416.             move.l              #$00080022,-(sp)
  2417.             moveq               #0,D0
  2418.             dc.w                $A82A
  2419.         EndM
  2420.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2421.         IMPORT_CFM_FUNCTION DataHAddMovie
  2422.     ENDIF
  2423.  
  2424. ;
  2425. ; pascal ComponentResult DataHUpdateMovie(DataHandler dh, Movie theMovie, short id)
  2426. ;
  2427.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2428.         Macro
  2429.         _DataHUpdateMovie
  2430.             move.l              #$00060023,-(sp)
  2431.             moveq               #0,D0
  2432.             dc.w                $A82A
  2433.         EndM
  2434.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2435.         IMPORT_CFM_FUNCTION DataHUpdateMovie
  2436.     ENDIF
  2437.  
  2438. ;
  2439. ; pascal ComponentResult DataHDoesBuffer(DataHandler dh, Boolean *buffersReads, Boolean *buffersWrites)
  2440. ;
  2441.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2442.         Macro
  2443.         _DataHDoesBuffer
  2444.             move.l              #$00080024,-(sp)
  2445.             moveq               #0,D0
  2446.             dc.w                $A82A
  2447.         EndM
  2448.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2449.         IMPORT_CFM_FUNCTION DataHDoesBuffer
  2450.     ENDIF
  2451.  
  2452. ;
  2453. ; pascal ComponentResult DataHGetFileName(DataHandler dh, Str255 str)
  2454. ;
  2455.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2456.         Macro
  2457.         _DataHGetFileName
  2458.             move.l              #$00040025,-(sp)
  2459.             moveq               #0,D0
  2460.             dc.w                $A82A
  2461.         EndM
  2462.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2463.         IMPORT_CFM_FUNCTION DataHGetFileName
  2464.     ENDIF
  2465.  
  2466. ;
  2467. ; pascal ComponentResult DataHGetAvailableFileSize(DataHandler dh, long *fileSize)
  2468. ;
  2469.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2470.         Macro
  2471.         _DataHGetAvailableFileSize
  2472.             move.l              #$00040026,-(sp)
  2473.             moveq               #0,D0
  2474.             dc.w                $A82A
  2475.         EndM
  2476.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2477.         IMPORT_CFM_FUNCTION DataHGetAvailableFileSize
  2478.     ENDIF
  2479.  
  2480. ;
  2481. ; pascal ComponentResult DataHGetMacOSFileType(DataHandler dh, OSType *fileType)
  2482. ;
  2483.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2484.         Macro
  2485.         _DataHGetMacOSFileType
  2486.             move.l              #$00040027,-(sp)
  2487.             moveq               #0,D0
  2488.             dc.w                $A82A
  2489.         EndM
  2490.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2491.         IMPORT_CFM_FUNCTION DataHGetMacOSFileType
  2492.     ENDIF
  2493.  
  2494. ;
  2495. ; pascal ComponentResult DataHGetMIMEType(DataHandler dh, Str255 mimeType)
  2496. ;
  2497.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2498.         Macro
  2499.         _DataHGetMIMEType
  2500.             move.l              #$00040028,-(sp)
  2501.             moveq               #0,D0
  2502.             dc.w                $A82A
  2503.         EndM
  2504.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2505.         IMPORT_CFM_FUNCTION DataHGetMIMEType
  2506.     ENDIF
  2507.  
  2508. ;
  2509. ; pascal ComponentResult DataHSetDataRefWithAnchor(DataHandler dh, Handle anchorDataRef, OSType dataRefType, Handle dataRef)
  2510. ;
  2511.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2512.         Macro
  2513.         _DataHSetDataRefWithAnchor
  2514.             move.l              #$000C0029,-(sp)
  2515.             moveq               #0,D0
  2516.             dc.w                $A82A
  2517.         EndM
  2518.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2519.         IMPORT_CFM_FUNCTION DataHSetDataRefWithAnchor
  2520.     ENDIF
  2521.  
  2522. ;
  2523. ; pascal ComponentResult DataHGetDataRefWithAnchor(DataHandler dh, Handle anchorDataRef, OSType dataRefType, Handle *dataRef)
  2524. ;
  2525.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2526.         Macro
  2527.         _DataHGetDataRefWithAnchor
  2528.             move.l              #$000C002A,-(sp)
  2529.             moveq               #0,D0
  2530.             dc.w                $A82A
  2531.         EndM
  2532.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2533.         IMPORT_CFM_FUNCTION DataHGetDataRefWithAnchor
  2534.     ENDIF
  2535.  
  2536. ;
  2537. ; pascal ComponentResult DataHSetMacOSFileType(DataHandler dh, OSType fileType)
  2538. ;
  2539.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2540.         Macro
  2541.         _DataHSetMacOSFileType
  2542.             move.l              #$0004002B,-(sp)
  2543.             moveq               #0,D0
  2544.             dc.w                $A82A
  2545.         EndM
  2546.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2547.         IMPORT_CFM_FUNCTION DataHSetMacOSFileType
  2548.     ENDIF
  2549.  
  2550. ;
  2551. ; pascal ComponentResult DataHSetTimeBase(DataHandler dh, TimeBase tb)
  2552. ;
  2553.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2554.         Macro
  2555.         _DataHSetTimeBase
  2556.             move.l              #$0004002C,-(sp)
  2557.             moveq               #0,D0
  2558.             dc.w                $A82A
  2559.         EndM
  2560.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2561.         IMPORT_CFM_FUNCTION DataHSetTimeBase
  2562.     ENDIF
  2563.  
  2564.  
  2565. ;
  2566. ; pascal ComponentResult DataHPlaybackHints(DataHandler dh, long flags, unsigned long minFileOffset, unsigned long maxFileOffset, long bytesPerSecond)
  2567. ;
  2568.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2569.         Macro
  2570.         _DataHPlaybackHints
  2571.             move.l              #$00100103,-(sp)
  2572.             moveq               #0,D0
  2573.             dc.w                $A82A
  2574.         EndM
  2575.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2576.         IMPORT_CFM_FUNCTION DataHPlaybackHints
  2577.     ENDIF
  2578.  
  2579.  
  2580.  
  2581.  
  2582. ;  Standard type for video digitizers 
  2583.  
  2584. videoDigitizerComponentType        EQU        'vdig'
  2585. vdigInterfaceRev                EQU        2
  2586. ;  Input Format Standards 
  2587.  
  2588. ntscIn                            EQU        0                    ; current input format 
  2589. currentIn                        EQU        0                    ; ntsc input format 
  2590. palIn                            EQU        1                    ; pal input format 
  2591. secamIn                            EQU        2                    ; secam input format 
  2592. ntscReallyIn                    EQU        3                    ; ntsc input format 
  2593. ;  Input Formats 
  2594.  
  2595. compositeIn                        EQU        0                    ; input is composite format 
  2596. sVideoIn                        EQU        1                    ; input is sVideo format 
  2597. rgbComponentIn                    EQU        2                    ; input is rgb component format 
  2598. rgbComponentSyncIn                EQU        3                    ; input is rgb component format (sync on green?)
  2599. yuvComponentIn                    EQU        4                    ; input is yuv component format 
  2600. yuvComponentSyncIn                EQU        5                    ; input is yuv component format (sync on green?) 
  2601. tvTunerIn                        EQU        6
  2602. sdiIn                            EQU        7
  2603.  
  2604. ;  Video Digitizer PlayThru States 
  2605.  
  2606. vdPlayThruOff                    EQU        0
  2607. vdPlayThruOn                    EQU        1
  2608. ;  Input Color Space Modes 
  2609.  
  2610. vdDigitizerBW                    EQU        0                    ; black and white 
  2611. vdDigitizerRGB                    EQU        1                    ; rgb color 
  2612. ;  Phase Lock Loop Modes 
  2613.  
  2614. vdBroadcastMode                    EQU        0                    ; Broadcast / Laser Disk video mode 
  2615. vdVTRMode                        EQU        1                    ; VCR / Magnetic media mode 
  2616. ;  Field Select Options 
  2617.  
  2618. vdUseAnyField                    EQU        0                    ; Digitizers choice on field use 
  2619. vdUseOddField                    EQU        1                    ; Use odd field for half size vert and smaller 
  2620. vdUseEvenField                    EQU        2                    ; Use even field for half size vert and smaller 
  2621. ;  vdig types 
  2622.  
  2623. vdTypeBasic                        EQU        0                    ; basic, no clipping 
  2624. vdTypeAlpha                        EQU        1                    ; supports clipping with alpha channel 
  2625. vdTypeMask                        EQU        2                    ; supports clipping with mask plane 
  2626. vdTypeKey                        EQU        3                    ; supports clipping with key color(s) 
  2627.  
  2628.  
  2629. ;  Digitizer Input Capability/Current Flags    
  2630.  
  2631. digiInDoesNTSC                    EQU        $00000001            ; digitizer supports NTSC input format 
  2632. digiInDoesPAL                    EQU        $00000002            ; digitizer supports PAL input format 
  2633. digiInDoesSECAM                    EQU        $00000004            ; digitizer supports SECAM input format 
  2634. digiInDoesGenLock                EQU        $00000080            ; digitizer does genlock 
  2635. digiInDoesComposite                EQU        $00000100            ; digitizer supports composite input type 
  2636. digiInDoesSVideo                EQU        $00000200            ; digitizer supports S-Video input type 
  2637. digiInDoesComponent                EQU        $00000400            ; digitizer supports component = rgb, input type 
  2638. digiInVTR_Broadcast                EQU        $00000800            ; digitizer can differentiate between the two 
  2639. digiInDoesColor                    EQU        $00001000            ; digitizer supports color 
  2640. digiInDoesBW                    EQU        $00002000            ; digitizer supports black & white 
  2641.                                                             ; Digitizer Input Current Flags = these are valid only during active operating conditions,    
  2642. digiInSignalLock                EQU        $80000000            ; digitizer detects input signal is locked, this bit = horiz lock || vertical lock 
  2643.  
  2644. ;  Digitizer Output Capability/Current Flags 
  2645.  
  2646. digiOutDoes1                    EQU        $00000001            ; digitizer supports 1 bit pixels 
  2647. digiOutDoes2                    EQU        $00000002            ; digitizer supports 2 bit pixels 
  2648. digiOutDoes4                    EQU        $00000004            ; digitizer supports 4 bit pixels 
  2649. digiOutDoes8                    EQU        $00000008            ; digitizer supports 8 bit pixels 
  2650. digiOutDoes16                    EQU        $00000010            ; digitizer supports 16 bit pixels 
  2651. digiOutDoes32                    EQU        $00000020            ; digitizer supports 32 bit pixels 
  2652. digiOutDoesDither                EQU        $00000040            ; digitizer dithers in indexed modes 
  2653. digiOutDoesStretch                EQU        $00000080            ; digitizer can arbitrarily stretch 
  2654. digiOutDoesShrink                EQU        $00000100            ; digitizer can arbitrarily shrink 
  2655. digiOutDoesMask                    EQU        $00000200            ; digitizer can mask to clipping regions 
  2656. digiOutDoesDouble                EQU        $00000800            ; digitizer can stretch to exactly double size 
  2657. digiOutDoesQuad                    EQU        $00001000            ; digitizer can stretch exactly quadruple size 
  2658. digiOutDoesQuarter                EQU        $00002000            ; digitizer can shrink to exactly quarter size 
  2659. digiOutDoesSixteenth            EQU        $00004000            ; digitizer can shrink to exactly sixteenth size 
  2660. digiOutDoesRotate                EQU        $00008000            ; digitizer supports rotate transformations 
  2661. digiOutDoesHorizFlip            EQU        $00010000            ; digitizer supports horizontal flips Sx < 0 
  2662. digiOutDoesVertFlip                EQU        $00020000            ; digitizer supports vertical flips Sy < 0 
  2663. digiOutDoesSkew                    EQU        $00040000            ; digitizer supports skew = shear,twist, 
  2664. digiOutDoesBlend                EQU        $00080000
  2665. digiOutDoesWarp                    EQU        $00100000
  2666. digiOutDoesHW_DMA                EQU        $00200000            ; digitizer not constrained to local device 
  2667. digiOutDoesHWPlayThru            EQU        $00400000            ; digitizer doesn't need time to play thru 
  2668. digiOutDoesILUT                    EQU        $00800000            ; digitizer does inverse LUT for index modes 
  2669. digiOutDoesKeyColor                EQU        $01000000            ; digitizer does key color functions too 
  2670. digiOutDoesAsyncGrabs            EQU        $02000000            ; digitizer supports async grabs 
  2671. digiOutDoesUnreadableScreenBits    EQU        $04000000            ; playthru doesn't generate readable bits on screen
  2672. digiOutDoesCompress                EQU        $08000000            ; supports alternate output data types 
  2673. digiOutDoesCompressOnly            EQU        $10000000            ; can't provide raw frames anywhere 
  2674. digiOutDoesPlayThruDuringCompress EQU    $20000000            ; digi can do playthru while providing compressed data 
  2675. digiOutDoesCompressPartiallyVisible EQU    $40000000            ; digi doesn't need all bits visible on screen to do hardware compress 
  2676. ;  Types 
  2677. ; typedef ComponentInstance             VideoDigitizerComponent
  2678.  
  2679. ; typedef ComponentResult                 VideoDigitizerError
  2680.  
  2681. DigitizerInfo            RECORD 0
  2682. vdigType                 ds.w    1                ; offset: $0 (0)
  2683. inputCapabilityFlags     ds.l    1                ; offset: $2 (2)
  2684. outputCapabilityFlags     ds.l    1                ; offset: $6 (6)
  2685. inputCurrentFlags         ds.l    1                ; offset: $A (10)
  2686. outputCurrentFlags         ds.l    1                ; offset: $E (14)
  2687. slot                     ds.w    1                ; offset: $12 (18)        ;  temporary for connection purposes 
  2688. gdh                         ds.l    1                ; offset: $14 (20)        ;  temporary for digitizers that have preferred screen 
  2689. maskgdh                     ds.l    1                ; offset: $18 (24)        ;  temporary for digitizers that have mask planes 
  2690. minDestHeight             ds.w    1                ; offset: $1C (28)        ;  Smallest resizable height 
  2691. minDestWidth             ds.w    1                ; offset: $1E (30)        ;  Smallest resizable width 
  2692. maxDestHeight             ds.w    1                ; offset: $20 (32)        ;  Largest resizable height 
  2693. maxDestWidth             ds.w    1                ; offset: $22 (34)        ;  Largest resizable height 
  2694. blendLevels                 ds.w    1                ; offset: $24 (36)        ;  Number of blend levels supported (2 if 1 bit mask) 
  2695. reserved                 ds.l    1                ; offset: $26 (38)        ;  reserved 
  2696. sizeof                     EQU *                    ; size:   $2A (42)
  2697.                         ENDR
  2698. VdigType                RECORD 0
  2699. digType                     ds.l    1                ; offset: $0 (0)
  2700. reserved                 ds.l    1                ; offset: $4 (4)
  2701. sizeof                     EQU *                    ; size:   $8 (8)
  2702.                         ENDR
  2703. VdigTypeList            RECORD 0
  2704. count                     ds.w    1                ; offset: $0 (0)
  2705. list                     ds        VdigType        ; offset: $2 (2) <-- really an array of length one
  2706. sizeof                     EQU *                    ; size:   $A (10)
  2707.                         ENDR
  2708. VdigBufferRec            RECORD 0
  2709. dest                     ds.l    1                ; offset: $0 (0)
  2710. location                 ds        Point            ; offset: $4 (4)
  2711. reserved                 ds.l    1                ; offset: $8 (8)
  2712. sizeof                     EQU *                    ; size:   $C (12)
  2713.                         ENDR
  2714. VdigBufferRecList        RECORD 0
  2715. count                     ds.w    1                ; offset: $0 (0)
  2716. matrix                     ds.l    1                ; offset: $2 (2)
  2717. mask                     ds.l    1                ; offset: $6 (6)
  2718. list                     ds        VdigBufferRec    ; offset: $A (10) <-- really an array of length one
  2719. sizeof                     EQU *                    ; size:   $16 (22)
  2720.                         ENDR
  2721. ; typedef struct VdigBufferRecList *    VdigBufferRecListPtr
  2722.  
  2723. ; typedef VdigBufferRecListPtr *        VdigBufferRecListHandle
  2724.  
  2725. VDCompressionList        RECORD 0
  2726. codec                     ds.l    1                ; offset: $0 (0)
  2727. cType                     ds.l    1                ; offset: $4 (4)
  2728. typeName                 ds        Str63            ; offset: $8 (8)
  2729. name                     ds        Str63            ; offset: $48 (72)
  2730. formatFlags                 ds.l    1                ; offset: $88 (136)
  2731. compressFlags             ds.l    1                ; offset: $8C (140)
  2732. reserved                 ds.l    1                ; offset: $90 (144)
  2733. sizeof                     EQU *                    ; size:   $94 (148)
  2734.                         ENDR
  2735. ; typedef struct VDCompressionList *    VDCompressionListPtr
  2736.  
  2737. ; typedef VDCompressionListPtr *        VDCompressionListHandle
  2738.  
  2739.  
  2740. dmaDepth1                        EQU        1
  2741. dmaDepth2                        EQU        2
  2742. dmaDepth4                        EQU        4
  2743. dmaDepth8                        EQU        8
  2744. dmaDepth16                        EQU        16
  2745. dmaDepth32                        EQU        32
  2746. dmaDepth2Gray                    EQU        64
  2747. dmaDepth4Gray                    EQU        128
  2748. dmaDepth8Gray                    EQU        256
  2749.  
  2750. kVDIGControlledFrameRate        EQU        -1
  2751.  
  2752. ;
  2753. ; pascal VideoDigitizerError VDGetMaxSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *maxSrcRect)
  2754. ;
  2755.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2756.         Macro
  2757.         _VDGetMaxSrcRect
  2758.             move.l              #$00060001,-(sp)
  2759.             moveq               #0,D0
  2760.             dc.w                $A82A
  2761.         EndM
  2762.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2763.         IMPORT_CFM_FUNCTION VDGetMaxSrcRect
  2764.     ENDIF
  2765.  
  2766. ;
  2767. ; pascal VideoDigitizerError VDGetActiveSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *activeSrcRect)
  2768. ;
  2769.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2770.         Macro
  2771.         _VDGetActiveSrcRect
  2772.             move.l              #$00060002,-(sp)
  2773.             moveq               #0,D0
  2774.             dc.w                $A82A
  2775.         EndM
  2776.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2777.         IMPORT_CFM_FUNCTION VDGetActiveSrcRect
  2778.     ENDIF
  2779.  
  2780. ;
  2781. ; pascal VideoDigitizerError VDSetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  2782. ;
  2783.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2784.         Macro
  2785.         _VDSetDigitizerRect
  2786.             move.l              #$00040003,-(sp)
  2787.             moveq               #0,D0
  2788.             dc.w                $A82A
  2789.         EndM
  2790.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2791.         IMPORT_CFM_FUNCTION VDSetDigitizerRect
  2792.     ENDIF
  2793.  
  2794. ;
  2795. ; pascal VideoDigitizerError VDGetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  2796. ;
  2797.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2798.         Macro
  2799.         _VDGetDigitizerRect
  2800.             move.l              #$00040004,-(sp)
  2801.             moveq               #0,D0
  2802.             dc.w                $A82A
  2803.         EndM
  2804.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2805.         IMPORT_CFM_FUNCTION VDGetDigitizerRect
  2806.     ENDIF
  2807.  
  2808. ;
  2809. ; pascal VideoDigitizerError VDGetVBlankRect(VideoDigitizerComponent ci, short inputStd, Rect *vBlankRect)
  2810. ;
  2811.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2812.         Macro
  2813.         _VDGetVBlankRect
  2814.             move.l              #$00060005,-(sp)
  2815.             moveq               #0,D0
  2816.             dc.w                $A82A
  2817.         EndM
  2818.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2819.         IMPORT_CFM_FUNCTION VDGetVBlankRect
  2820.     ENDIF
  2821.  
  2822. ;
  2823. ; pascal VideoDigitizerError VDGetMaskPixMap(VideoDigitizerComponent ci, PixMapHandle maskPixMap)
  2824. ;
  2825.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2826.         Macro
  2827.         _VDGetMaskPixMap
  2828.             move.l              #$00040006,-(sp)
  2829.             moveq               #0,D0
  2830.             dc.w                $A82A
  2831.         EndM
  2832.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2833.         IMPORT_CFM_FUNCTION VDGetMaskPixMap
  2834.     ENDIF
  2835.  
  2836. ;
  2837. ; pascal VideoDigitizerError VDGetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle *dest, Rect *destRect, MatrixRecord *m, RgnHandle *mask)
  2838. ;
  2839.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2840.         Macro
  2841.         _VDGetPlayThruDestination
  2842.             move.l              #$00100008,-(sp)
  2843.             moveq               #0,D0
  2844.             dc.w                $A82A
  2845.         EndM
  2846.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2847.         IMPORT_CFM_FUNCTION VDGetPlayThruDestination
  2848.     ENDIF
  2849.  
  2850. ;
  2851. ; pascal VideoDigitizerError VDUseThisCLUT(VideoDigitizerComponent ci, CTabHandle colorTableHandle)
  2852. ;
  2853.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2854.         Macro
  2855.         _VDUseThisCLUT
  2856.             move.l              #$00040009,-(sp)
  2857.             moveq               #0,D0
  2858.             dc.w                $A82A
  2859.         EndM
  2860.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2861.         IMPORT_CFM_FUNCTION VDUseThisCLUT
  2862.     ENDIF
  2863.  
  2864. ;
  2865. ; pascal VideoDigitizerError VDSetInputGammaValue(VideoDigitizerComponent ci, Fixed channel1, Fixed channel2, Fixed channel3)
  2866. ;
  2867.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2868.         Macro
  2869.         _VDSetInputGammaValue
  2870.             move.l              #$000C000A,-(sp)
  2871.             moveq               #0,D0
  2872.             dc.w                $A82A
  2873.         EndM
  2874.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2875.         IMPORT_CFM_FUNCTION VDSetInputGammaValue
  2876.     ENDIF
  2877.  
  2878. ;
  2879. ; pascal VideoDigitizerError VDGetInputGammaValue(VideoDigitizerComponent ci, Fixed *channel1, Fixed *channel2, Fixed *channel3)
  2880. ;
  2881.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2882.         Macro
  2883.         _VDGetInputGammaValue
  2884.             move.l              #$000C000B,-(sp)
  2885.             moveq               #0,D0
  2886.             dc.w                $A82A
  2887.         EndM
  2888.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2889.         IMPORT_CFM_FUNCTION VDGetInputGammaValue
  2890.     ENDIF
  2891.  
  2892. ;
  2893. ; pascal VideoDigitizerError VDSetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  2894. ;
  2895.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2896.         Macro
  2897.         _VDSetBrightness
  2898.             move.l              #$0004000C,-(sp)
  2899.             moveq               #0,D0
  2900.             dc.w                $A82A
  2901.         EndM
  2902.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2903.         IMPORT_CFM_FUNCTION VDSetBrightness
  2904.     ENDIF
  2905.  
  2906. ;
  2907. ; pascal VideoDigitizerError VDGetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  2908. ;
  2909.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2910.         Macro
  2911.         _VDGetBrightness
  2912.             move.l              #$0004000D,-(sp)
  2913.             moveq               #0,D0
  2914.             dc.w                $A82A
  2915.         EndM
  2916.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2917.         IMPORT_CFM_FUNCTION VDGetBrightness
  2918.     ENDIF
  2919.  
  2920. ;
  2921. ; pascal VideoDigitizerError VDSetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  2922. ;
  2923.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2924.         Macro
  2925.         _VDSetContrast
  2926.             move.l              #$0004000E,-(sp)
  2927.             moveq               #0,D0
  2928.             dc.w                $A82A
  2929.         EndM
  2930.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2931.         IMPORT_CFM_FUNCTION VDSetContrast
  2932.     ENDIF
  2933.  
  2934. ;
  2935. ; pascal VideoDigitizerError VDSetHue(VideoDigitizerComponent ci, unsigned short *hue)
  2936. ;
  2937.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2938.         Macro
  2939.         _VDSetHue
  2940.             move.l              #$0004000F,-(sp)
  2941.             moveq               #0,D0
  2942.             dc.w                $A82A
  2943.         EndM
  2944.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2945.         IMPORT_CFM_FUNCTION VDSetHue
  2946.     ENDIF
  2947.  
  2948. ;
  2949. ; pascal VideoDigitizerError VDSetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  2950. ;
  2951.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2952.         Macro
  2953.         _VDSetSharpness
  2954.             move.l              #$00040010,-(sp)
  2955.             moveq               #0,D0
  2956.             dc.w                $A82A
  2957.         EndM
  2958.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2959.         IMPORT_CFM_FUNCTION VDSetSharpness
  2960.     ENDIF
  2961.  
  2962. ;
  2963. ; pascal VideoDigitizerError VDSetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  2964. ;
  2965.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2966.         Macro
  2967.         _VDSetSaturation
  2968.             move.l              #$00040011,-(sp)
  2969.             moveq               #0,D0
  2970.             dc.w                $A82A
  2971.         EndM
  2972.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2973.         IMPORT_CFM_FUNCTION VDSetSaturation
  2974.     ENDIF
  2975.  
  2976. ;
  2977. ; pascal VideoDigitizerError VDGetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  2978. ;
  2979.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2980.         Macro
  2981.         _VDGetContrast
  2982.             move.l              #$00040012,-(sp)
  2983.             moveq               #0,D0
  2984.             dc.w                $A82A
  2985.         EndM
  2986.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2987.         IMPORT_CFM_FUNCTION VDGetContrast
  2988.     ENDIF
  2989.  
  2990. ;
  2991. ; pascal VideoDigitizerError VDGetHue(VideoDigitizerComponent ci, unsigned short *hue)
  2992. ;
  2993.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2994.         Macro
  2995.         _VDGetHue
  2996.             move.l              #$00040013,-(sp)
  2997.             moveq               #0,D0
  2998.             dc.w                $A82A
  2999.         EndM
  3000.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3001.         IMPORT_CFM_FUNCTION VDGetHue
  3002.     ENDIF
  3003.  
  3004. ;
  3005. ; pascal VideoDigitizerError VDGetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  3006. ;
  3007.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3008.         Macro
  3009.         _VDGetSharpness
  3010.             move.l              #$00040014,-(sp)
  3011.             moveq               #0,D0
  3012.             dc.w                $A82A
  3013.         EndM
  3014.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3015.         IMPORT_CFM_FUNCTION VDGetSharpness
  3016.     ENDIF
  3017.  
  3018. ;
  3019. ; pascal VideoDigitizerError VDGetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  3020. ;
  3021.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3022.         Macro
  3023.         _VDGetSaturation
  3024.             move.l              #$00040015,-(sp)
  3025.             moveq               #0,D0
  3026.             dc.w                $A82A
  3027.         EndM
  3028.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3029.         IMPORT_CFM_FUNCTION VDGetSaturation
  3030.     ENDIF
  3031.  
  3032. ;
  3033. ; pascal VideoDigitizerError VDGrabOneFrame(VideoDigitizerComponent ci)
  3034. ;
  3035.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3036.         Macro
  3037.         _VDGrabOneFrame
  3038.             move.l              #$00000016,-(sp)
  3039.             moveq               #0,D0
  3040.             dc.w                $A82A
  3041.         EndM
  3042.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3043.         IMPORT_CFM_FUNCTION VDGrabOneFrame
  3044.     ENDIF
  3045.  
  3046. ;
  3047. ; pascal VideoDigitizerError VDGetMaxAuxBuffer(VideoDigitizerComponent ci, PixMapHandle *pm, Rect *r)
  3048. ;
  3049.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3050.         Macro
  3051.         _VDGetMaxAuxBuffer
  3052.             move.l              #$00080017,-(sp)
  3053.             moveq               #0,D0
  3054.             dc.w                $A82A
  3055.         EndM
  3056.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3057.         IMPORT_CFM_FUNCTION VDGetMaxAuxBuffer
  3058.     ENDIF
  3059.  
  3060. ;
  3061. ; pascal VideoDigitizerError VDGetDigitizerInfo(VideoDigitizerComponent ci, DigitizerInfo *info)
  3062. ;
  3063.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3064.         Macro
  3065.         _VDGetDigitizerInfo
  3066.             move.l              #$00040019,-(sp)
  3067.             moveq               #0,D0
  3068.             dc.w                $A82A
  3069.         EndM
  3070.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3071.         IMPORT_CFM_FUNCTION VDGetDigitizerInfo
  3072.     ENDIF
  3073.  
  3074. ;
  3075. ; pascal VideoDigitizerError VDGetCurrentFlags(VideoDigitizerComponent ci, long *inputCurrentFlag, long *outputCurrentFlag)
  3076. ;
  3077.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3078.         Macro
  3079.         _VDGetCurrentFlags
  3080.             move.l              #$0008001A,-(sp)
  3081.             moveq               #0,D0
  3082.             dc.w                $A82A
  3083.         EndM
  3084.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3085.         IMPORT_CFM_FUNCTION VDGetCurrentFlags
  3086.     ENDIF
  3087.  
  3088. ;
  3089. ; pascal VideoDigitizerError VDSetKeyColor(VideoDigitizerComponent ci, long index)
  3090. ;
  3091.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3092.         Macro
  3093.         _VDSetKeyColor
  3094.             move.l              #$0004001B,-(sp)
  3095.             moveq               #0,D0
  3096.             dc.w                $A82A
  3097.         EndM
  3098.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3099.         IMPORT_CFM_FUNCTION VDSetKeyColor
  3100.     ENDIF
  3101.  
  3102. ;
  3103. ; pascal VideoDigitizerError VDGetKeyColor(VideoDigitizerComponent ci, long *index)
  3104. ;
  3105.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3106.         Macro
  3107.         _VDGetKeyColor
  3108.             move.l              #$0004001C,-(sp)
  3109.             moveq               #0,D0
  3110.             dc.w                $A82A
  3111.         EndM
  3112.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3113.         IMPORT_CFM_FUNCTION VDGetKeyColor
  3114.     ENDIF
  3115.  
  3116. ;
  3117. ; pascal VideoDigitizerError VDAddKeyColor(VideoDigitizerComponent ci, long *index)
  3118. ;
  3119.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3120.         Macro
  3121.         _VDAddKeyColor
  3122.             move.l              #$0004001D,-(sp)
  3123.             moveq               #0,D0
  3124.             dc.w                $A82A
  3125.         EndM
  3126.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3127.         IMPORT_CFM_FUNCTION VDAddKeyColor
  3128.     ENDIF
  3129.  
  3130. ;
  3131. ; pascal VideoDigitizerError VDGetNextKeyColor(VideoDigitizerComponent ci, long index)
  3132. ;
  3133.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3134.         Macro
  3135.         _VDGetNextKeyColor
  3136.             move.l              #$0004001E,-(sp)
  3137.             moveq               #0,D0
  3138.             dc.w                $A82A
  3139.         EndM
  3140.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3141.         IMPORT_CFM_FUNCTION VDGetNextKeyColor
  3142.     ENDIF
  3143.  
  3144. ;
  3145. ; pascal VideoDigitizerError VDSetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  3146. ;
  3147.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3148.         Macro
  3149.         _VDSetKeyColorRange
  3150.             move.l              #$0008001F,-(sp)
  3151.             moveq               #0,D0
  3152.             dc.w                $A82A
  3153.         EndM
  3154.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3155.         IMPORT_CFM_FUNCTION VDSetKeyColorRange
  3156.     ENDIF
  3157.  
  3158. ;
  3159. ; pascal VideoDigitizerError VDGetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  3160. ;
  3161.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3162.         Macro
  3163.         _VDGetKeyColorRange
  3164.             move.l              #$00080020,-(sp)
  3165.             moveq               #0,D0
  3166.             dc.w                $A82A
  3167.         EndM
  3168.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3169.         IMPORT_CFM_FUNCTION VDGetKeyColorRange
  3170.     ENDIF
  3171.  
  3172. ;
  3173. ; pascal VideoDigitizerError VDSetDigitizerUserInterrupt(VideoDigitizerComponent ci, long flags, VdigIntUPP userInterruptProc, long refcon)
  3174. ;
  3175.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3176.         Macro
  3177.         _VDSetDigitizerUserInterrupt
  3178.             move.l              #$000C0021,-(sp)
  3179.             moveq               #0,D0
  3180.             dc.w                $A82A
  3181.         EndM
  3182.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3183.         IMPORT_CFM_FUNCTION VDSetDigitizerUserInterrupt
  3184.     ENDIF
  3185.  
  3186. ;
  3187. ; pascal VideoDigitizerError VDSetInputColorSpaceMode(VideoDigitizerComponent ci, short colorSpaceMode)
  3188. ;
  3189.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3190.         Macro
  3191.         _VDSetInputColorSpaceMode
  3192.             move.l              #$00020022,-(sp)
  3193.             moveq               #0,D0
  3194.             dc.w                $A82A
  3195.         EndM
  3196.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3197.         IMPORT_CFM_FUNCTION VDSetInputColorSpaceMode
  3198.     ENDIF
  3199.  
  3200. ;
  3201. ; pascal VideoDigitizerError VDGetInputColorSpaceMode(VideoDigitizerComponent ci, short *colorSpaceMode)
  3202. ;
  3203.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3204.         Macro
  3205.         _VDGetInputColorSpaceMode
  3206.             move.l              #$00040023,-(sp)
  3207.             moveq               #0,D0
  3208.             dc.w                $A82A
  3209.         EndM
  3210.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3211.         IMPORT_CFM_FUNCTION VDGetInputColorSpaceMode
  3212.     ENDIF
  3213.  
  3214. ;
  3215. ; pascal VideoDigitizerError VDSetClipState(VideoDigitizerComponent ci, short clipEnable)
  3216. ;
  3217.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3218.         Macro
  3219.         _VDSetClipState
  3220.             move.l              #$00020024,-(sp)
  3221.             moveq               #0,D0
  3222.             dc.w                $A82A
  3223.         EndM
  3224.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3225.         IMPORT_CFM_FUNCTION VDSetClipState
  3226.     ENDIF
  3227.  
  3228. ;
  3229. ; pascal VideoDigitizerError VDGetClipState(VideoDigitizerComponent ci, short *clipEnable)
  3230. ;
  3231.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3232.         Macro
  3233.         _VDGetClipState
  3234.             move.l              #$00040025,-(sp)
  3235.             moveq               #0,D0
  3236.             dc.w                $A82A
  3237.         EndM
  3238.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3239.         IMPORT_CFM_FUNCTION VDGetClipState
  3240.     ENDIF
  3241.  
  3242. ;
  3243. ; pascal VideoDigitizerError VDSetClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  3244. ;
  3245.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3246.         Macro
  3247.         _VDSetClipRgn
  3248.             move.l              #$00040026,-(sp)
  3249.             moveq               #0,D0
  3250.             dc.w                $A82A
  3251.         EndM
  3252.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3253.         IMPORT_CFM_FUNCTION VDSetClipRgn
  3254.     ENDIF
  3255.  
  3256. ;
  3257. ; pascal VideoDigitizerError VDClearClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  3258. ;
  3259.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3260.         Macro
  3261.         _VDClearClipRgn
  3262.             move.l              #$00040027,-(sp)
  3263.             moveq               #0,D0
  3264.             dc.w                $A82A
  3265.         EndM
  3266.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3267.         IMPORT_CFM_FUNCTION VDClearClipRgn
  3268.     ENDIF
  3269.  
  3270. ;
  3271. ; pascal VideoDigitizerError VDGetCLUTInUse(VideoDigitizerComponent ci, CTabHandle *colorTableHandle)
  3272. ;
  3273.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3274.         Macro
  3275.         _VDGetCLUTInUse
  3276.             move.l              #$00040028,-(sp)
  3277.             moveq               #0,D0
  3278.             dc.w                $A82A
  3279.         EndM
  3280.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3281.         IMPORT_CFM_FUNCTION VDGetCLUTInUse
  3282.     ENDIF
  3283.  
  3284. ;
  3285. ; pascal VideoDigitizerError VDSetPLLFilterType(VideoDigitizerComponent ci, short pllType)
  3286. ;
  3287.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3288.         Macro
  3289.         _VDSetPLLFilterType
  3290.             move.l              #$00020029,-(sp)
  3291.             moveq               #0,D0
  3292.             dc.w                $A82A
  3293.         EndM
  3294.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3295.         IMPORT_CFM_FUNCTION VDSetPLLFilterType
  3296.     ENDIF
  3297.  
  3298. ;
  3299. ; pascal VideoDigitizerError VDGetPLLFilterType(VideoDigitizerComponent ci, short *pllType)
  3300. ;
  3301.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3302.         Macro
  3303.         _VDGetPLLFilterType
  3304.             move.l              #$0004002A,-(sp)
  3305.             moveq               #0,D0
  3306.             dc.w                $A82A
  3307.         EndM
  3308.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3309.         IMPORT_CFM_FUNCTION VDGetPLLFilterType
  3310.     ENDIF
  3311.  
  3312. ;
  3313. ; pascal VideoDigitizerError VDGetMaskandValue(VideoDigitizerComponent ci, unsigned short blendLevel, long *mask, long *value)
  3314. ;
  3315.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3316.         Macro
  3317.         _VDGetMaskandValue
  3318.             move.l              #$000A002B,-(sp)
  3319.             moveq               #0,D0
  3320.             dc.w                $A82A
  3321.         EndM
  3322.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3323.         IMPORT_CFM_FUNCTION VDGetMaskandValue
  3324.     ENDIF
  3325.  
  3326. ;
  3327. ; pascal VideoDigitizerError VDSetMasterBlendLevel(VideoDigitizerComponent ci, unsigned short *blendLevel)
  3328. ;
  3329.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3330.         Macro
  3331.         _VDSetMasterBlendLevel
  3332.             move.l              #$0004002C,-(sp)
  3333.             moveq               #0,D0
  3334.             dc.w                $A82A
  3335.         EndM
  3336.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3337.         IMPORT_CFM_FUNCTION VDSetMasterBlendLevel
  3338.     ENDIF
  3339.  
  3340. ;
  3341. ; pascal VideoDigitizerError VDSetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle dest, RectPtr destRect, MatrixRecordPtr m, RgnHandle mask)
  3342. ;
  3343.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3344.         Macro
  3345.         _VDSetPlayThruDestination
  3346.             move.l              #$0010002D,-(sp)
  3347.             moveq               #0,D0
  3348.             dc.w                $A82A
  3349.         EndM
  3350.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3351.         IMPORT_CFM_FUNCTION VDSetPlayThruDestination
  3352.     ENDIF
  3353.  
  3354. ;
  3355. ; pascal VideoDigitizerError VDSetPlayThruOnOff(VideoDigitizerComponent ci, short state)
  3356. ;
  3357.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3358.         Macro
  3359.         _VDSetPlayThruOnOff
  3360.             move.l              #$0002002E,-(sp)
  3361.             moveq               #0,D0
  3362.             dc.w                $A82A
  3363.         EndM
  3364.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3365.         IMPORT_CFM_FUNCTION VDSetPlayThruOnOff
  3366.     ENDIF
  3367.  
  3368. ;
  3369. ; pascal VideoDigitizerError VDSetFieldPreference(VideoDigitizerComponent ci, short fieldFlag)
  3370. ;
  3371.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3372.         Macro
  3373.         _VDSetFieldPreference
  3374.             move.l              #$0002002F,-(sp)
  3375.             moveq               #0,D0
  3376.             dc.w                $A82A
  3377.         EndM
  3378.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3379.         IMPORT_CFM_FUNCTION VDSetFieldPreference
  3380.     ENDIF
  3381.  
  3382. ;
  3383. ; pascal VideoDigitizerError VDGetFieldPreference(VideoDigitizerComponent ci, short *fieldFlag)
  3384. ;
  3385.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3386.         Macro
  3387.         _VDGetFieldPreference
  3388.             move.l              #$00040030,-(sp)
  3389.             moveq               #0,D0
  3390.             dc.w                $A82A
  3391.         EndM
  3392.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3393.         IMPORT_CFM_FUNCTION VDGetFieldPreference
  3394.     ENDIF
  3395.  
  3396. ;
  3397. ; pascal VideoDigitizerError VDPreflightDestination(VideoDigitizerComponent ci, Rect *digitizerRect, PixMap **dest, RectPtr destRect, MatrixRecordPtr m)
  3398. ;
  3399.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3400.         Macro
  3401.         _VDPreflightDestination
  3402.             move.l              #$00100032,-(sp)
  3403.             moveq               #0,D0
  3404.             dc.w                $A82A
  3405.         EndM
  3406.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3407.         IMPORT_CFM_FUNCTION VDPreflightDestination
  3408.     ENDIF
  3409.  
  3410. ;
  3411. ; pascal VideoDigitizerError VDPreflightGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  3412. ;
  3413.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3414.         Macro
  3415.         _VDPreflightGlobalRect
  3416.             move.l              #$00080033,-(sp)
  3417.             moveq               #0,D0
  3418.             dc.w                $A82A
  3419.         EndM
  3420.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3421.         IMPORT_CFM_FUNCTION VDPreflightGlobalRect
  3422.     ENDIF
  3423.  
  3424. ;
  3425. ; pascal VideoDigitizerError VDSetPlayThruGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  3426. ;
  3427.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3428.         Macro
  3429.         _VDSetPlayThruGlobalRect
  3430.             move.l              #$00080034,-(sp)
  3431.             moveq               #0,D0
  3432.             dc.w                $A82A
  3433.         EndM
  3434.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3435.         IMPORT_CFM_FUNCTION VDSetPlayThruGlobalRect
  3436.     ENDIF
  3437.  
  3438. ;
  3439. ; pascal VideoDigitizerError VDSetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr inputGammaPtr)
  3440. ;
  3441.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3442.         Macro
  3443.         _VDSetInputGammaRecord
  3444.             move.l              #$00040035,-(sp)
  3445.             moveq               #0,D0
  3446.             dc.w                $A82A
  3447.         EndM
  3448.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3449.         IMPORT_CFM_FUNCTION VDSetInputGammaRecord
  3450.     ENDIF
  3451.  
  3452. ;
  3453. ; pascal VideoDigitizerError VDGetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr *inputGammaPtr)
  3454. ;
  3455.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3456.         Macro
  3457.         _VDGetInputGammaRecord
  3458.             move.l              #$00040036,-(sp)
  3459.             moveq               #0,D0
  3460.             dc.w                $A82A
  3461.         EndM
  3462.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3463.         IMPORT_CFM_FUNCTION VDGetInputGammaRecord
  3464.     ENDIF
  3465.  
  3466. ;
  3467. ; pascal VideoDigitizerError VDSetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  3468. ;
  3469.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3470.         Macro
  3471.         _VDSetBlackLevelValue
  3472.             move.l              #$00040037,-(sp)
  3473.             moveq               #0,D0
  3474.             dc.w                $A82A
  3475.         EndM
  3476.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3477.         IMPORT_CFM_FUNCTION VDSetBlackLevelValue
  3478.     ENDIF
  3479.  
  3480. ;
  3481. ; pascal VideoDigitizerError VDGetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  3482. ;
  3483.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3484.         Macro
  3485.         _VDGetBlackLevelValue
  3486.             move.l              #$00040038,-(sp)
  3487.             moveq               #0,D0
  3488.             dc.w                $A82A
  3489.         EndM
  3490.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3491.         IMPORT_CFM_FUNCTION VDGetBlackLevelValue
  3492.     ENDIF
  3493.  
  3494. ;
  3495. ; pascal VideoDigitizerError VDSetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  3496. ;
  3497.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3498.         Macro
  3499.         _VDSetWhiteLevelValue
  3500.             move.l              #$00040039,-(sp)
  3501.             moveq               #0,D0
  3502.             dc.w                $A82A
  3503.         EndM
  3504.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3505.         IMPORT_CFM_FUNCTION VDSetWhiteLevelValue
  3506.     ENDIF
  3507.  
  3508. ;
  3509. ; pascal VideoDigitizerError VDGetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  3510. ;
  3511.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3512.         Macro
  3513.         _VDGetWhiteLevelValue
  3514.             move.l              #$0004003A,-(sp)
  3515.             moveq               #0,D0
  3516.             dc.w                $A82A
  3517.         EndM
  3518.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3519.         IMPORT_CFM_FUNCTION VDGetWhiteLevelValue
  3520.     ENDIF
  3521.  
  3522. ;
  3523. ; pascal VideoDigitizerError VDGetVideoDefaults(VideoDigitizerComponent ci, unsigned short *blackLevel, unsigned short *whiteLevel, unsigned short *brightness, unsigned short *hue, unsigned short *saturation, unsigned short *contrast, unsigned short *sharpness)
  3524. ;
  3525.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3526.         Macro
  3527.         _VDGetVideoDefaults
  3528.             move.l              #$001C003B,-(sp)
  3529.             moveq               #0,D0
  3530.             dc.w                $A82A
  3531.         EndM
  3532.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3533.         IMPORT_CFM_FUNCTION VDGetVideoDefaults
  3534.     ENDIF
  3535.  
  3536. ;
  3537. ; pascal VideoDigitizerError VDGetNumberOfInputs(VideoDigitizerComponent ci, short *inputs)
  3538. ;
  3539.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3540.         Macro
  3541.         _VDGetNumberOfInputs
  3542.             move.l              #$0004003C,-(sp)
  3543.             moveq               #0,D0
  3544.             dc.w                $A82A
  3545.         EndM
  3546.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3547.         IMPORT_CFM_FUNCTION VDGetNumberOfInputs
  3548.     ENDIF
  3549.  
  3550. ;
  3551. ; pascal VideoDigitizerError VDGetInputFormat(VideoDigitizerComponent ci, short input, short *format)
  3552. ;
  3553.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3554.         Macro
  3555.         _VDGetInputFormat
  3556.             move.l              #$0006003D,-(sp)
  3557.             moveq               #0,D0
  3558.             dc.w                $A82A
  3559.         EndM
  3560.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3561.         IMPORT_CFM_FUNCTION VDGetInputFormat
  3562.     ENDIF
  3563.  
  3564. ;
  3565. ; pascal VideoDigitizerError VDSetInput(VideoDigitizerComponent ci, short input)
  3566. ;
  3567.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3568.         Macro
  3569.         _VDSetInput
  3570.             move.l              #$0002003E,-(sp)
  3571.             moveq               #0,D0
  3572.             dc.w                $A82A
  3573.         EndM
  3574.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3575.         IMPORT_CFM_FUNCTION VDSetInput
  3576.     ENDIF
  3577.  
  3578. ;
  3579. ; pascal VideoDigitizerError VDGetInput(VideoDigitizerComponent ci, short *input)
  3580. ;
  3581.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3582.         Macro
  3583.         _VDGetInput
  3584.             move.l              #$0004003F,-(sp)
  3585.             moveq               #0,D0
  3586.             dc.w                $A82A
  3587.         EndM
  3588.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3589.         IMPORT_CFM_FUNCTION VDGetInput
  3590.     ENDIF
  3591.  
  3592. ;
  3593. ; pascal VideoDigitizerError VDSetInputStandard(VideoDigitizerComponent ci, short inputStandard)
  3594. ;
  3595.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3596.         Macro
  3597.         _VDSetInputStandard
  3598.             move.l              #$00020040,-(sp)
  3599.             moveq               #0,D0
  3600.             dc.w                $A82A
  3601.         EndM
  3602.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3603.         IMPORT_CFM_FUNCTION VDSetInputStandard
  3604.     ENDIF
  3605.  
  3606. ;
  3607. ; pascal VideoDigitizerError VDSetupBuffers(VideoDigitizerComponent ci, VdigBufferRecListHandle bufferList)
  3608. ;
  3609.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3610.         Macro
  3611.         _VDSetupBuffers
  3612.             move.l              #$00040041,-(sp)
  3613.             moveq               #0,D0
  3614.             dc.w                $A82A
  3615.         EndM
  3616.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3617.         IMPORT_CFM_FUNCTION VDSetupBuffers
  3618.     ENDIF
  3619.  
  3620. ;
  3621. ; pascal VideoDigitizerError VDGrabOneFrameAsync(VideoDigitizerComponent ci, short buffer)
  3622. ;
  3623.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3624.         Macro
  3625.         _VDGrabOneFrameAsync
  3626.             move.l              #$00020042,-(sp)
  3627.             moveq               #0,D0
  3628.             dc.w                $A82A
  3629.         EndM
  3630.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3631.         IMPORT_CFM_FUNCTION VDGrabOneFrameAsync
  3632.     ENDIF
  3633.  
  3634. ;
  3635. ; pascal VideoDigitizerError VDDone(VideoDigitizerComponent ci, short buffer)
  3636. ;
  3637.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3638.         Macro
  3639.         _VDDone
  3640.             move.l              #$00020043,-(sp)
  3641.             moveq               #0,D0
  3642.             dc.w                $A82A
  3643.         EndM
  3644.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3645.         IMPORT_CFM_FUNCTION VDDone
  3646.     ENDIF
  3647.  
  3648. ;
  3649. ; pascal VideoDigitizerError VDSetCompression(VideoDigitizerComponent ci, OSType compressType, short depth, Rect *bounds, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  3650. ;
  3651.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3652.         Macro
  3653.         _VDSetCompression
  3654.             move.l              #$00160044,-(sp)
  3655.             moveq               #0,D0
  3656.             dc.w                $A82A
  3657.         EndM
  3658.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3659.         IMPORT_CFM_FUNCTION VDSetCompression
  3660.     ENDIF
  3661.  
  3662. ;
  3663. ; pascal VideoDigitizerError VDCompressOneFrameAsync(VideoDigitizerComponent ci)
  3664. ;
  3665.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3666.         Macro
  3667.         _VDCompressOneFrameAsync
  3668.             move.l              #$00000045,-(sp)
  3669.             moveq               #0,D0
  3670.             dc.w                $A82A
  3671.         EndM
  3672.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3673.         IMPORT_CFM_FUNCTION VDCompressOneFrameAsync
  3674.     ENDIF
  3675.  
  3676. ;
  3677. ; pascal VideoDigitizerError VDCompressDone(VideoDigitizerComponent ci, Boolean *done, Ptr *theData, long *dataSize, UInt8 *similarity, TimeRecord *t)
  3678. ;
  3679.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3680.         Macro
  3681.         _VDCompressDone
  3682.             move.l              #$00140046,-(sp)
  3683.             moveq               #0,D0
  3684.             dc.w                $A82A
  3685.         EndM
  3686.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3687.         IMPORT_CFM_FUNCTION VDCompressDone
  3688.     ENDIF
  3689.  
  3690. ;
  3691. ; pascal VideoDigitizerError VDReleaseCompressBuffer(VideoDigitizerComponent ci, Ptr bufferAddr)
  3692. ;
  3693.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3694.         Macro
  3695.         _VDReleaseCompressBuffer
  3696.             move.l              #$00040047,-(sp)
  3697.             moveq               #0,D0
  3698.             dc.w                $A82A
  3699.         EndM
  3700.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3701.         IMPORT_CFM_FUNCTION VDReleaseCompressBuffer
  3702.     ENDIF
  3703.  
  3704. ;
  3705. ; pascal VideoDigitizerError VDGetImageDescription(VideoDigitizerComponent ci, ImageDescriptionHandle desc)
  3706. ;
  3707.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3708.         Macro
  3709.         _VDGetImageDescription
  3710.             move.l              #$00040048,-(sp)
  3711.             moveq               #0,D0
  3712.             dc.w                $A82A
  3713.         EndM
  3714.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3715.         IMPORT_CFM_FUNCTION VDGetImageDescription
  3716.     ENDIF
  3717.  
  3718. ;
  3719. ; pascal VideoDigitizerError VDResetCompressSequence(VideoDigitizerComponent ci)
  3720. ;
  3721.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3722.         Macro
  3723.         _VDResetCompressSequence
  3724.             move.l              #$00000049,-(sp)
  3725.             moveq               #0,D0
  3726.             dc.w                $A82A
  3727.         EndM
  3728.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3729.         IMPORT_CFM_FUNCTION VDResetCompressSequence
  3730.     ENDIF
  3731.  
  3732. ;
  3733. ; pascal VideoDigitizerError VDSetCompressionOnOff(VideoDigitizerComponent ci, Boolean state)
  3734. ;
  3735.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3736.         Macro
  3737.         _VDSetCompressionOnOff
  3738.             move.l              #$0002004A,-(sp)
  3739.             moveq               #0,D0
  3740.             dc.w                $A82A
  3741.         EndM
  3742.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3743.         IMPORT_CFM_FUNCTION VDSetCompressionOnOff
  3744.     ENDIF
  3745.  
  3746. ;
  3747. ; pascal VideoDigitizerError VDGetCompressionTypes(VideoDigitizerComponent ci, VDCompressionListHandle h)
  3748. ;
  3749.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3750.         Macro
  3751.         _VDGetCompressionTypes
  3752.             move.l              #$0004004B,-(sp)
  3753.             moveq               #0,D0
  3754.             dc.w                $A82A
  3755.         EndM
  3756.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3757.         IMPORT_CFM_FUNCTION VDGetCompressionTypes
  3758.     ENDIF
  3759.  
  3760. ;
  3761. ; pascal VideoDigitizerError VDSetTimeBase(VideoDigitizerComponent ci, TimeBase t)
  3762. ;
  3763.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3764.         Macro
  3765.         _VDSetTimeBase
  3766.             move.l              #$0004004C,-(sp)
  3767.             moveq               #0,D0
  3768.             dc.w                $A82A
  3769.         EndM
  3770.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3771.         IMPORT_CFM_FUNCTION VDSetTimeBase
  3772.     ENDIF
  3773.  
  3774. ;
  3775. ; pascal VideoDigitizerError VDSetFrameRate(VideoDigitizerComponent ci, Fixed framesPerSecond)
  3776. ;
  3777.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3778.         Macro
  3779.         _VDSetFrameRate
  3780.             move.l              #$0004004D,-(sp)
  3781.             moveq               #0,D0
  3782.             dc.w                $A82A
  3783.         EndM
  3784.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3785.         IMPORT_CFM_FUNCTION VDSetFrameRate
  3786.     ENDIF
  3787.  
  3788. ;
  3789. ; pascal VideoDigitizerError VDGetDataRate(VideoDigitizerComponent ci, long *milliSecPerFrame, Fixed *framesPerSecond, long *bytesPerSecond)
  3790. ;
  3791.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3792.         Macro
  3793.         _VDGetDataRate
  3794.             move.l              #$000C004E,-(sp)
  3795.             moveq               #0,D0
  3796.             dc.w                $A82A
  3797.         EndM
  3798.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3799.         IMPORT_CFM_FUNCTION VDGetDataRate
  3800.     ENDIF
  3801.  
  3802. ;
  3803. ; pascal VideoDigitizerError VDGetSoundInputDriver(VideoDigitizerComponent ci, Str255 soundDriverName)
  3804. ;
  3805.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3806.         Macro
  3807.         _VDGetSoundInputDriver
  3808.             move.l              #$0004004F,-(sp)
  3809.             moveq               #0,D0
  3810.             dc.w                $A82A
  3811.         EndM
  3812.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3813.         IMPORT_CFM_FUNCTION VDGetSoundInputDriver
  3814.     ENDIF
  3815.  
  3816. ;
  3817. ; pascal VideoDigitizerError VDGetDMADepths(VideoDigitizerComponent ci, long *depthArray, long *preferredDepth)
  3818. ;
  3819.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3820.         Macro
  3821.         _VDGetDMADepths
  3822.             move.l              #$00080050,-(sp)
  3823.             moveq               #0,D0
  3824.             dc.w                $A82A
  3825.         EndM
  3826.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3827.         IMPORT_CFM_FUNCTION VDGetDMADepths
  3828.     ENDIF
  3829.  
  3830. ;
  3831. ; pascal VideoDigitizerError VDGetPreferredTimeScale(VideoDigitizerComponent ci, TimeScale *preferred)
  3832. ;
  3833.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3834.         Macro
  3835.         _VDGetPreferredTimeScale
  3836.             move.l              #$00040051,-(sp)
  3837.             moveq               #0,D0
  3838.             dc.w                $A82A
  3839.         EndM
  3840.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3841.         IMPORT_CFM_FUNCTION VDGetPreferredTimeScale
  3842.     ENDIF
  3843.  
  3844. ;
  3845. ; pascal VideoDigitizerError VDReleaseAsyncBuffers(VideoDigitizerComponent ci)
  3846. ;
  3847.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3848.         Macro
  3849.         _VDReleaseAsyncBuffers
  3850.             move.l              #$00000052,-(sp)
  3851.             moveq               #0,D0
  3852.             dc.w                $A82A
  3853.         EndM
  3854.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3855.         IMPORT_CFM_FUNCTION VDReleaseAsyncBuffers
  3856.     ENDIF
  3857.  
  3858. ;  83 is reserved for compatibility reasons 
  3859. ;
  3860. ; pascal VideoDigitizerError VDSetDataRate(VideoDigitizerComponent ci, long bytesPerSecond)
  3861. ;
  3862.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3863.         Macro
  3864.         _VDSetDataRate
  3865.             move.l              #$00040054,-(sp)
  3866.             moveq               #0,D0
  3867.             dc.w                $A82A
  3868.         EndM
  3869.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3870.         IMPORT_CFM_FUNCTION VDSetDataRate
  3871.     ENDIF
  3872.  
  3873. ;
  3874. ; pascal VideoDigitizerError VDGetTimeCode(VideoDigitizerComponent ci, TimeRecord *atTime, void *timeCodeFormat, void *timeCodeTime)
  3875. ;
  3876.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3877.         Macro
  3878.         _VDGetTimeCode
  3879.             move.l              #$000C0055,-(sp)
  3880.             moveq               #0,D0
  3881.             dc.w                $A82A
  3882.         EndM
  3883.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3884.         IMPORT_CFM_FUNCTION VDGetTimeCode
  3885.     ENDIF
  3886.  
  3887. ;
  3888. ; pascal VideoDigitizerError VDUseSafeBuffers(VideoDigitizerComponent ci, Boolean useSafeBuffers)
  3889. ;
  3890.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3891.         Macro
  3892.         _VDUseSafeBuffers
  3893.             move.l              #$00020056,-(sp)
  3894.             moveq               #0,D0
  3895.             dc.w                $A82A
  3896.         EndM
  3897.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3898.         IMPORT_CFM_FUNCTION VDUseSafeBuffers
  3899.     ENDIF
  3900.  
  3901. ;
  3902. ; pascal VideoDigitizerError VDGetSoundInputSource(VideoDigitizerComponent ci, long videoInput, long *soundInput)
  3903. ;
  3904.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3905.         Macro
  3906.         _VDGetSoundInputSource
  3907.             move.l              #$00080057,-(sp)
  3908.             moveq               #0,D0
  3909.             dc.w                $A82A
  3910.         EndM
  3911.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3912.         IMPORT_CFM_FUNCTION VDGetSoundInputSource
  3913.     ENDIF
  3914.  
  3915. ;
  3916. ; pascal VideoDigitizerError VDGetCompressionTime(VideoDigitizerComponent ci, OSType compressionType, short depth, Rect *srcRect, CodecQ *spatialQuality, CodecQ *temporalQuality, unsigned long *compressTime)
  3917. ;
  3918.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3919.         Macro
  3920.         _VDGetCompressionTime
  3921.             move.l              #$00160058,-(sp)
  3922.             moveq               #0,D0
  3923.             dc.w                $A82A
  3924.         EndM
  3925.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3926.         IMPORT_CFM_FUNCTION VDGetCompressionTime
  3927.     ENDIF
  3928.  
  3929. ;
  3930. ; pascal VideoDigitizerError VDSetPreferredPacketSize(VideoDigitizerComponent ci, long preferredPacketSizeInBytes)
  3931. ;
  3932.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3933.         Macro
  3934.         _VDSetPreferredPacketSize
  3935.             move.l              #$00040059,-(sp)
  3936.             moveq               #0,D0
  3937.             dc.w                $A82A
  3938.         EndM
  3939.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3940.         IMPORT_CFM_FUNCTION VDSetPreferredPacketSize
  3941.     ENDIF
  3942.  
  3943. ;
  3944. ; pascal VideoDigitizerError VDSetPreferredImageDimensions(VideoDigitizerComponent ci, long width, long height)
  3945. ;
  3946.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3947.         Macro
  3948.         _VDSetPreferredImageDimensions
  3949.             move.l              #$0008005A,-(sp)
  3950.             moveq               #0,D0
  3951.             dc.w                $A82A
  3952.         EndM
  3953.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3954.         IMPORT_CFM_FUNCTION VDSetPreferredImageDimensions
  3955.     ENDIF
  3956.  
  3957. ;
  3958. ; pascal VideoDigitizerError VDGetPreferredImageDimensions(VideoDigitizerComponent ci, long *width, long *height)
  3959. ;
  3960.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3961.         Macro
  3962.         _VDGetPreferredImageDimensions
  3963.             move.l              #$0008005B,-(sp)
  3964.             moveq               #0,D0
  3965.             dc.w                $A82A
  3966.         EndM
  3967.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3968.         IMPORT_CFM_FUNCTION VDGetPreferredImageDimensions
  3969.     ENDIF
  3970.  
  3971. ;
  3972. ; pascal VideoDigitizerError VDGetInputName(VideoDigitizerComponent ci, long videoInput, Str255 name)
  3973. ;
  3974.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3975.         Macro
  3976.         _VDGetInputName
  3977.             move.l              #$0008005C,-(sp)
  3978.             moveq               #0,D0
  3979.             dc.w                $A82A
  3980.         EndM
  3981.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3982.         IMPORT_CFM_FUNCTION VDGetInputName
  3983.     ENDIF
  3984.  
  3985. ;
  3986. ; pascal VideoDigitizerError VDSetDestinationPort(VideoDigitizerComponent ci, CGrafPtr destPort)
  3987. ;
  3988.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3989.         Macro
  3990.         _VDSetDestinationPort
  3991.             move.l              #$0004005D,-(sp)
  3992.             moveq               #0,D0
  3993.             dc.w                $A82A
  3994.         EndM
  3995.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3996.         IMPORT_CFM_FUNCTION VDSetDestinationPort
  3997.     ENDIF
  3998.  
  3999.  
  4000.  
  4001. ;    General Sequence Grab stuff
  4002. ;
  4003.  
  4004. ; typedef ComponentInstance             SeqGrabComponent
  4005.  
  4006. ; typedef ComponentInstance             SGChannel
  4007.  
  4008.  
  4009. SeqGrabComponentType            EQU        'barg'
  4010. SeqGrabChannelType                EQU        'sgch'
  4011. SeqGrabPanelType                EQU        'sgpn'
  4012. SeqGrabCompressionPanelType        EQU        'cmpr'
  4013. SeqGrabSourcePanelType            EQU        'sour'
  4014.  
  4015. seqGrabToDisk                    EQU        1
  4016. seqGrabToMemory                    EQU        2
  4017. seqGrabDontUseTempMemory        EQU        4
  4018. seqGrabAppendToFile                EQU        8
  4019. seqGrabDontAddMovieResource        EQU        16
  4020. seqGrabDontMakeMovie            EQU        32
  4021. seqGrabPreExtendFile            EQU        64
  4022. seqGrabDataProcIsInterruptSafe    EQU        128
  4023. seqGrabDataProcDoesOverlappingReads EQU    256
  4024. ; typedef unsigned long                 SeqGrabDataOutputEnum
  4025.  
  4026.  
  4027. seqGrabRecord                    EQU        1
  4028. seqGrabPreview                    EQU        2
  4029. seqGrabPlayDuringRecord            EQU        4
  4030. ; typedef unsigned long                 SeqGrabUsageEnum
  4031.  
  4032.  
  4033. seqGrabHasBounds                EQU        1
  4034. seqGrabHasVolume                EQU        2
  4035. seqGrabHasDiscreteSamples        EQU        4
  4036. ; typedef unsigned long                 SeqGrabChannelInfoEnum
  4037.  
  4038. SGOutputRecord            RECORD 0
  4039. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  4040. sizeof                     EQU *                    ; size:   $4 (4)
  4041.                         ENDR
  4042. ; typedef struct SGOutputRecord *        SGOutput
  4043.  
  4044. SeqGrabFrameInfo        RECORD 0
  4045. frameOffset                 ds.l    1                ; offset: $0 (0)
  4046. frameTime                 ds.l    1                ; offset: $4 (4)
  4047. frameSize                 ds.l    1                ; offset: $8 (8)
  4048. frameChannel             ds.l    1                ; offset: $C (12)
  4049. frameRefCon                 ds.l    1                ; offset: $10 (16)
  4050. sizeof                     EQU *                    ; size:   $14 (20)
  4051.                         ENDR
  4052. ; typedef struct SeqGrabFrameInfo *        SeqGrabFrameInfoPtr
  4053.  
  4054. SeqGrabExtendedFrameInfo RECORD 0
  4055. frameOffset                 ds        wide            ; offset: $0 (0)
  4056. frameTime                 ds.l    1                ; offset: $8 (8)
  4057. frameSize                 ds.l    1                ; offset: $C (12)
  4058. frameChannel             ds.l    1                ; offset: $10 (16)
  4059. frameRefCon                 ds.l    1                ; offset: $14 (20)
  4060. frameOutput                 ds.l    1                ; offset: $18 (24)
  4061. sizeof                     EQU *                    ; size:   $1C (28)
  4062.                         ENDR
  4063. ; typedef struct SeqGrabExtendedFrameInfo * SeqGrabExtendedFrameInfoPtr
  4064.  
  4065.  
  4066. grabPictOffScreen                EQU        1
  4067. grabPictIgnoreClip                EQU        2
  4068. grabPictCurrentImage            EQU        4
  4069.  
  4070. sgFlagControlledGrab            EQU        $01
  4071. SGDeviceName            RECORD 0
  4072. name                     ds        Str63            ; offset: $0 (0)
  4073. icon                     ds.l    1                ; offset: $40 (64)
  4074. flags                     ds.l    1                ; offset: $44 (68)
  4075. refCon                     ds.l    1                ; offset: $48 (72)
  4076. reserved                 ds.l    1                ; offset: $4C (76)        ;  zero
  4077. sizeof                     EQU *                    ; size:   $50 (80)
  4078.                         ENDR
  4079.  
  4080. sgDeviceNameFlagDeviceUnavailable EQU    $01
  4081. SGDeviceListRecord        RECORD 0
  4082. count                     ds.w    1                ; offset: $0 (0)
  4083. selectedIndex             ds.w    1                ; offset: $2 (2)
  4084. reserved                 ds.l    1                ; offset: $4 (4)        ;  zero
  4085. entry                     ds        SGDeviceName    ; offset: $8 (8) <-- really an array of length one
  4086. sizeof                     EQU *                    ; size:   $58 (88)
  4087.                         ENDR
  4088. ; typedef struct SGDeviceListRecord *    SGDeviceListPtr
  4089.  
  4090. ; typedef SGDeviceListPtr *                SGDeviceList
  4091.  
  4092.  
  4093. sgDeviceListWithIcons            EQU        $01
  4094. sgDeviceListDontCheckAvailability EQU    $02
  4095.  
  4096. seqGrabWriteAppend                EQU        0
  4097. seqGrabWriteReserve                EQU        1
  4098. seqGrabWriteFill                EQU        2
  4099.  
  4100. seqGrabUnpause                    EQU        0
  4101. seqGrabPause                    EQU        1
  4102. seqGrabPauseForMenu                EQU        3
  4103.  
  4104. channelFlagDontOpenResFile        EQU        2
  4105. channelFlagHasDependency        EQU        4
  4106.  
  4107. sgPanelFlagForPanel                EQU        1
  4108.  
  4109. seqGrabSettingsPreviewOnly        EQU        1
  4110.  
  4111. channelPlayNormal                EQU        0
  4112. channelPlayFast                    EQU        1
  4113. channelPlayHighQuality            EQU        2
  4114. channelPlayAllData                EQU        4
  4115.  
  4116. ;
  4117. ; pascal ComponentResult SGInitialize(SeqGrabComponent s)
  4118. ;
  4119.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4120.         Macro
  4121.         _SGInitialize
  4122.             move.l              #$00000001,-(sp)
  4123.             moveq               #0,D0
  4124.             dc.w                $A82A
  4125.         EndM
  4126.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4127.         IMPORT_CFM_FUNCTION SGInitialize
  4128.     ENDIF
  4129.  
  4130. ;
  4131. ; pascal ComponentResult SGSetDataOutput(SeqGrabComponent s, const FSSpec *movieFile, long whereFlags)
  4132. ;
  4133.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4134.         Macro
  4135.         _SGSetDataOutput
  4136.             move.l              #$00080002,-(sp)
  4137.             moveq               #0,D0
  4138.             dc.w                $A82A
  4139.         EndM
  4140.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4141.         IMPORT_CFM_FUNCTION SGSetDataOutput
  4142.     ENDIF
  4143.  
  4144. ;
  4145. ; pascal ComponentResult SGGetDataOutput(SeqGrabComponent s, FSSpec *movieFile, long *whereFlags)
  4146. ;
  4147.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4148.         Macro
  4149.         _SGGetDataOutput
  4150.             move.l              #$00080003,-(sp)
  4151.             moveq               #0,D0
  4152.             dc.w                $A82A
  4153.         EndM
  4154.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4155.         IMPORT_CFM_FUNCTION SGGetDataOutput
  4156.     ENDIF
  4157.  
  4158. ;
  4159. ; pascal ComponentResult SGSetGWorld(SeqGrabComponent s, CGrafPtr gp, GDHandle gd)
  4160. ;
  4161.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4162.         Macro
  4163.         _SGSetGWorld
  4164.             move.l              #$00080004,-(sp)
  4165.             moveq               #0,D0
  4166.             dc.w                $A82A
  4167.         EndM
  4168.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4169.         IMPORT_CFM_FUNCTION SGSetGWorld
  4170.     ENDIF
  4171.  
  4172. ;
  4173. ; pascal ComponentResult SGGetGWorld(SeqGrabComponent s, CGrafPtr *gp, GDHandle *gd)
  4174. ;
  4175.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4176.         Macro
  4177.         _SGGetGWorld
  4178.             move.l              #$00080005,-(sp)
  4179.             moveq               #0,D0
  4180.             dc.w                $A82A
  4181.         EndM
  4182.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4183.         IMPORT_CFM_FUNCTION SGGetGWorld
  4184.     ENDIF
  4185.  
  4186. ;
  4187. ; pascal ComponentResult SGNewChannel(SeqGrabComponent s, OSType channelType, SGChannel *ref)
  4188. ;
  4189.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4190.         Macro
  4191.         _SGNewChannel
  4192.             move.l              #$00080006,-(sp)
  4193.             moveq               #0,D0
  4194.             dc.w                $A82A
  4195.         EndM
  4196.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4197.         IMPORT_CFM_FUNCTION SGNewChannel
  4198.     ENDIF
  4199.  
  4200. ;
  4201. ; pascal ComponentResult SGDisposeChannel(SeqGrabComponent s, SGChannel c)
  4202. ;
  4203.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4204.         Macro
  4205.         _SGDisposeChannel
  4206.             move.l              #$00040007,-(sp)
  4207.             moveq               #0,D0
  4208.             dc.w                $A82A
  4209.         EndM
  4210.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4211.         IMPORT_CFM_FUNCTION SGDisposeChannel
  4212.     ENDIF
  4213.  
  4214. ;
  4215. ; pascal ComponentResult SGStartPreview(SeqGrabComponent s)
  4216. ;
  4217.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4218.         Macro
  4219.         _SGStartPreview
  4220.             move.l              #$00000010,-(sp)
  4221.             moveq               #0,D0
  4222.             dc.w                $A82A
  4223.         EndM
  4224.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4225.         IMPORT_CFM_FUNCTION SGStartPreview
  4226.     ENDIF
  4227.  
  4228. ;
  4229. ; pascal ComponentResult SGStartRecord(SeqGrabComponent s)
  4230. ;
  4231.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4232.         Macro
  4233.         _SGStartRecord
  4234.             move.l              #$00000011,-(sp)
  4235.             moveq               #0,D0
  4236.             dc.w                $A82A
  4237.         EndM
  4238.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4239.         IMPORT_CFM_FUNCTION SGStartRecord
  4240.     ENDIF
  4241.  
  4242. ;
  4243. ; pascal ComponentResult SGIdle(SeqGrabComponent s)
  4244. ;
  4245.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4246.         Macro
  4247.         _SGIdle
  4248.             move.l              #$00000012,-(sp)
  4249.             moveq               #0,D0
  4250.             dc.w                $A82A
  4251.         EndM
  4252.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4253.         IMPORT_CFM_FUNCTION SGIdle
  4254.     ENDIF
  4255.  
  4256. ;
  4257. ; pascal ComponentResult SGStop(SeqGrabComponent s)
  4258. ;
  4259.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4260.         Macro
  4261.         _SGStop
  4262.             move.l              #$00000013,-(sp)
  4263.             moveq               #0,D0
  4264.             dc.w                $A82A
  4265.         EndM
  4266.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4267.         IMPORT_CFM_FUNCTION SGStop
  4268.     ENDIF
  4269.  
  4270. ;
  4271. ; pascal ComponentResult SGPause(SeqGrabComponent s, Byte pause)
  4272. ;
  4273.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4274.         Macro
  4275.         _SGPause
  4276.             move.l              #$00020014,-(sp)
  4277.             moveq               #0,D0
  4278.             dc.w                $A82A
  4279.         EndM
  4280.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4281.         IMPORT_CFM_FUNCTION SGPause
  4282.     ENDIF
  4283.  
  4284. ;
  4285. ; pascal ComponentResult SGPrepare(SeqGrabComponent s, Boolean prepareForPreview, Boolean prepareForRecord)
  4286. ;
  4287.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4288.         Macro
  4289.         _SGPrepare
  4290.             move.l              #$00040015,-(sp)
  4291.             moveq               #0,D0
  4292.             dc.w                $A82A
  4293.         EndM
  4294.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4295.         IMPORT_CFM_FUNCTION SGPrepare
  4296.     ENDIF
  4297.  
  4298. ;
  4299. ; pascal ComponentResult SGRelease(SeqGrabComponent s)
  4300. ;
  4301.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4302.         Macro
  4303.         _SGRelease
  4304.             move.l              #$00000016,-(sp)
  4305.             moveq               #0,D0
  4306.             dc.w                $A82A
  4307.         EndM
  4308.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4309.         IMPORT_CFM_FUNCTION SGRelease
  4310.     ENDIF
  4311.  
  4312. ;
  4313. ; pascal Movie SGGetMovie(SeqGrabComponent s)
  4314. ;
  4315.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4316.         Macro
  4317.         _SGGetMovie
  4318.             move.l              #$00000017,-(sp)
  4319.             moveq               #0,D0
  4320.             dc.w                $A82A
  4321.         EndM
  4322.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4323.         IMPORT_CFM_FUNCTION SGGetMovie
  4324.     ENDIF
  4325.  
  4326. ;
  4327. ; pascal ComponentResult SGSetMaximumRecordTime(SeqGrabComponent s, unsigned long ticks)
  4328. ;
  4329.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4330.         Macro
  4331.         _SGSetMaximumRecordTime
  4332.             move.l              #$00040018,-(sp)
  4333.             moveq               #0,D0
  4334.             dc.w                $A82A
  4335.         EndM
  4336.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4337.         IMPORT_CFM_FUNCTION SGSetMaximumRecordTime
  4338.     ENDIF
  4339.  
  4340. ;
  4341. ; pascal ComponentResult SGGetMaximumRecordTime(SeqGrabComponent s, unsigned long *ticks)
  4342. ;
  4343.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4344.         Macro
  4345.         _SGGetMaximumRecordTime
  4346.             move.l              #$00040019,-(sp)
  4347.             moveq               #0,D0
  4348.             dc.w                $A82A
  4349.         EndM
  4350.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4351.         IMPORT_CFM_FUNCTION SGGetMaximumRecordTime
  4352.     ENDIF
  4353.  
  4354. ;
  4355. ; pascal ComponentResult SGGetStorageSpaceRemaining(SeqGrabComponent s, unsigned long *bytes)
  4356. ;
  4357.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4358.         Macro
  4359.         _SGGetStorageSpaceRemaining
  4360.             move.l              #$0004001A,-(sp)
  4361.             moveq               #0,D0
  4362.             dc.w                $A82A
  4363.         EndM
  4364.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4365.         IMPORT_CFM_FUNCTION SGGetStorageSpaceRemaining
  4366.     ENDIF
  4367.  
  4368. ;
  4369. ; pascal ComponentResult SGGetTimeRemaining(SeqGrabComponent s, long *ticksLeft)
  4370. ;
  4371.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4372.         Macro
  4373.         _SGGetTimeRemaining
  4374.             move.l              #$0004001B,-(sp)
  4375.             moveq               #0,D0
  4376.             dc.w                $A82A
  4377.         EndM
  4378.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4379.         IMPORT_CFM_FUNCTION SGGetTimeRemaining
  4380.     ENDIF
  4381.  
  4382. ;
  4383. ; pascal ComponentResult SGGrabPict(SeqGrabComponent s, PicHandle *p, const Rect *bounds, short offscreenDepth, long grabPictFlags)
  4384. ;
  4385.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4386.         Macro
  4387.         _SGGrabPict
  4388.             move.l              #$000E001C,-(sp)
  4389.             moveq               #0,D0
  4390.             dc.w                $A82A
  4391.         EndM
  4392.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4393.         IMPORT_CFM_FUNCTION SGGrabPict
  4394.     ENDIF
  4395.  
  4396. ;
  4397. ; pascal ComponentResult SGGetLastMovieResID(SeqGrabComponent s, short *resID)
  4398. ;
  4399.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4400.         Macro
  4401.         _SGGetLastMovieResID
  4402.             move.l              #$0004001D,-(sp)
  4403.             moveq               #0,D0
  4404.             dc.w                $A82A
  4405.         EndM
  4406.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4407.         IMPORT_CFM_FUNCTION SGGetLastMovieResID
  4408.     ENDIF
  4409.  
  4410. ;
  4411. ; pascal ComponentResult SGSetFlags(SeqGrabComponent s, long sgFlags)
  4412. ;
  4413.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4414.         Macro
  4415.         _SGSetFlags
  4416.             move.l              #$0004001E,-(sp)
  4417.             moveq               #0,D0
  4418.             dc.w                $A82A
  4419.         EndM
  4420.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4421.         IMPORT_CFM_FUNCTION SGSetFlags
  4422.     ENDIF
  4423.  
  4424. ;
  4425. ; pascal ComponentResult SGGetFlags(SeqGrabComponent s, long *sgFlags)
  4426. ;
  4427.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4428.         Macro
  4429.         _SGGetFlags
  4430.             move.l              #$0004001F,-(sp)
  4431.             moveq               #0,D0
  4432.             dc.w                $A82A
  4433.         EndM
  4434.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4435.         IMPORT_CFM_FUNCTION SGGetFlags
  4436.     ENDIF
  4437.  
  4438. ;
  4439. ; pascal ComponentResult SGSetDataProc(SeqGrabComponent s, SGDataUPP proc, long refCon)
  4440. ;
  4441.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4442.         Macro
  4443.         _SGSetDataProc
  4444.             move.l              #$00080020,-(sp)
  4445.             moveq               #0,D0
  4446.             dc.w                $A82A
  4447.         EndM
  4448.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4449.         IMPORT_CFM_FUNCTION SGSetDataProc
  4450.     ENDIF
  4451.  
  4452. ;
  4453. ; pascal ComponentResult SGNewChannelFromComponent(SeqGrabComponent s, SGChannel *newChannel, Component sgChannelComponent)
  4454. ;
  4455.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4456.         Macro
  4457.         _SGNewChannelFromComponent
  4458.             move.l              #$00080021,-(sp)
  4459.             moveq               #0,D0
  4460.             dc.w                $A82A
  4461.         EndM
  4462.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4463.         IMPORT_CFM_FUNCTION SGNewChannelFromComponent
  4464.     ENDIF
  4465.  
  4466. ;
  4467. ; pascal ComponentResult SGDisposeDeviceList(SeqGrabComponent s, SGDeviceList list)
  4468. ;
  4469.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4470.         Macro
  4471.         _SGDisposeDeviceList
  4472.             move.l              #$00040022,-(sp)
  4473.             moveq               #0,D0
  4474.             dc.w                $A82A
  4475.         EndM
  4476.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4477.         IMPORT_CFM_FUNCTION SGDisposeDeviceList
  4478.     ENDIF
  4479.  
  4480. ;
  4481. ; pascal ComponentResult SGAppendDeviceListToMenu(SeqGrabComponent s, SGDeviceList list, MenuHandle mh)
  4482. ;
  4483.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4484.         Macro
  4485.         _SGAppendDeviceListToMenu
  4486.             move.l              #$00080023,-(sp)
  4487.             moveq               #0,D0
  4488.             dc.w                $A82A
  4489.         EndM
  4490.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4491.         IMPORT_CFM_FUNCTION SGAppendDeviceListToMenu
  4492.     ENDIF
  4493.  
  4494. ;
  4495. ; pascal ComponentResult SGSetSettings(SeqGrabComponent s, UserData ud, long flags)
  4496. ;
  4497.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4498.         Macro
  4499.         _SGSetSettings
  4500.             move.l              #$00080024,-(sp)
  4501.             moveq               #0,D0
  4502.             dc.w                $A82A
  4503.         EndM
  4504.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4505.         IMPORT_CFM_FUNCTION SGSetSettings
  4506.     ENDIF
  4507.  
  4508. ;
  4509. ; pascal ComponentResult SGGetSettings(SeqGrabComponent s, UserData *ud, long flags)
  4510. ;
  4511.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4512.         Macro
  4513.         _SGGetSettings
  4514.             move.l              #$00080025,-(sp)
  4515.             moveq               #0,D0
  4516.             dc.w                $A82A
  4517.         EndM
  4518.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4519.         IMPORT_CFM_FUNCTION SGGetSettings
  4520.     ENDIF
  4521.  
  4522. ;
  4523. ; pascal ComponentResult SGGetIndChannel(SeqGrabComponent s, short index, SGChannel *ref, OSType *chanType)
  4524. ;
  4525.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4526.         Macro
  4527.         _SGGetIndChannel
  4528.             move.l              #$000A0026,-(sp)
  4529.             moveq               #0,D0
  4530.             dc.w                $A82A
  4531.         EndM
  4532.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4533.         IMPORT_CFM_FUNCTION SGGetIndChannel
  4534.     ENDIF
  4535.  
  4536. ;
  4537. ; pascal ComponentResult SGUpdate(SeqGrabComponent s, RgnHandle updateRgn)
  4538. ;
  4539.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4540.         Macro
  4541.         _SGUpdate
  4542.             move.l              #$00040027,-(sp)
  4543.             moveq               #0,D0
  4544.             dc.w                $A82A
  4545.         EndM
  4546.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4547.         IMPORT_CFM_FUNCTION SGUpdate
  4548.     ENDIF
  4549.  
  4550. ;
  4551. ; pascal ComponentResult SGGetPause(SeqGrabComponent s, Byte *paused)
  4552. ;
  4553.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4554.         Macro
  4555.         _SGGetPause
  4556.             move.l              #$00040028,-(sp)
  4557.             moveq               #0,D0
  4558.             dc.w                $A82A
  4559.         EndM
  4560.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4561.         IMPORT_CFM_FUNCTION SGGetPause
  4562.     ENDIF
  4563.  
  4564. ; typedef const Component *                ConstComponentListPtr
  4565.  
  4566. ;
  4567. ; pascal ComponentResult SGSettingsDialog(SeqGrabComponent s, SGChannel c, short numPanels, ConstComponentListPtr panelList, long flags, SGModalFilterUPP proc, long procRefNum)
  4568. ;
  4569.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4570.         Macro
  4571.         _SGSettingsDialog
  4572.             move.l              #$00160029,-(sp)
  4573.             moveq               #0,D0
  4574.             dc.w                $A82A
  4575.         EndM
  4576.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4577.         IMPORT_CFM_FUNCTION SGSettingsDialog
  4578.     ENDIF
  4579.  
  4580. ;
  4581. ; pascal ComponentResult SGGetAlignmentProc(SeqGrabComponent s, ICMAlignmentProcRecordPtr alignmentProc)
  4582. ;
  4583.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4584.         Macro
  4585.         _SGGetAlignmentProc
  4586.             move.l              #$0004002A,-(sp)
  4587.             moveq               #0,D0
  4588.             dc.w                $A82A
  4589.         EndM
  4590.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4591.         IMPORT_CFM_FUNCTION SGGetAlignmentProc
  4592.     ENDIF
  4593.  
  4594. ;
  4595. ; pascal ComponentResult SGSetChannelSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  4596. ;
  4597.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4598.         Macro
  4599.         _SGSetChannelSettings
  4600.             move.l              #$000C002B,-(sp)
  4601.             moveq               #0,D0
  4602.             dc.w                $A82A
  4603.         EndM
  4604.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4605.         IMPORT_CFM_FUNCTION SGSetChannelSettings
  4606.     ENDIF
  4607.  
  4608. ;
  4609. ; pascal ComponentResult SGGetChannelSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  4610. ;
  4611.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4612.         Macro
  4613.         _SGGetChannelSettings
  4614.             move.l              #$000C002C,-(sp)
  4615.             moveq               #0,D0
  4616.             dc.w                $A82A
  4617.         EndM
  4618.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4619.         IMPORT_CFM_FUNCTION SGGetChannelSettings
  4620.     ENDIF
  4621.  
  4622. ;
  4623. ; pascal ComponentResult SGGetMode(SeqGrabComponent s, Boolean *previewMode, Boolean *recordMode)
  4624. ;
  4625.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4626.         Macro
  4627.         _SGGetMode
  4628.             move.l              #$0008002D,-(sp)
  4629.             moveq               #0,D0
  4630.             dc.w                $A82A
  4631.         EndM
  4632.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4633.         IMPORT_CFM_FUNCTION SGGetMode
  4634.     ENDIF
  4635.  
  4636. ;
  4637. ; pascal ComponentResult SGSetDataRef(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags)
  4638. ;
  4639.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4640.         Macro
  4641.         _SGSetDataRef
  4642.             move.l              #$000C002E,-(sp)
  4643.             moveq               #0,D0
  4644.             dc.w                $A82A
  4645.         EndM
  4646.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4647.         IMPORT_CFM_FUNCTION SGSetDataRef
  4648.     ENDIF
  4649.  
  4650. ;
  4651. ; pascal ComponentResult SGGetDataRef(SeqGrabComponent s, Handle *dataRef, OSType *dataRefType, long *whereFlags)
  4652. ;
  4653.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4654.         Macro
  4655.         _SGGetDataRef
  4656.             move.l              #$000C002F,-(sp)
  4657.             moveq               #0,D0
  4658.             dc.w                $A82A
  4659.         EndM
  4660.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4661.         IMPORT_CFM_FUNCTION SGGetDataRef
  4662.     ENDIF
  4663.  
  4664. ;
  4665. ; pascal ComponentResult SGNewOutput(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags, SGOutput *sgOut)
  4666. ;
  4667.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4668.         Macro
  4669.         _SGNewOutput
  4670.             move.l              #$00100030,-(sp)
  4671.             moveq               #0,D0
  4672.             dc.w                $A82A
  4673.         EndM
  4674.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4675.         IMPORT_CFM_FUNCTION SGNewOutput
  4676.     ENDIF
  4677.  
  4678. ;
  4679. ; pascal ComponentResult SGDisposeOutput(SeqGrabComponent s, SGOutput sgOut)
  4680. ;
  4681.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4682.         Macro
  4683.         _SGDisposeOutput
  4684.             move.l              #$00040031,-(sp)
  4685.             moveq               #0,D0
  4686.             dc.w                $A82A
  4687.         EndM
  4688.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4689.         IMPORT_CFM_FUNCTION SGDisposeOutput
  4690.     ENDIF
  4691.  
  4692. ;
  4693. ; pascal ComponentResult SGSetOutputFlags(SeqGrabComponent s, SGOutput sgOut, long whereFlags)
  4694. ;
  4695.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4696.         Macro
  4697.         _SGSetOutputFlags
  4698.             move.l              #$00080032,-(sp)
  4699.             moveq               #0,D0
  4700.             dc.w                $A82A
  4701.         EndM
  4702.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4703.         IMPORT_CFM_FUNCTION SGSetOutputFlags
  4704.     ENDIF
  4705.  
  4706. ;
  4707. ; pascal ComponentResult SGSetChannelOutput(SeqGrabComponent s, SGChannel c, SGOutput sgOut)
  4708. ;
  4709.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4710.         Macro
  4711.         _SGSetChannelOutput
  4712.             move.l              #$00080033,-(sp)
  4713.             moveq               #0,D0
  4714.             dc.w                $A82A
  4715.         EndM
  4716.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4717.         IMPORT_CFM_FUNCTION SGSetChannelOutput
  4718.     ENDIF
  4719.  
  4720. ;
  4721. ; pascal ComponentResult SGGetDataOutputStorageSpaceRemaining(SeqGrabComponent s, SGOutput sgOut, unsigned long *space)
  4722. ;
  4723.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4724.         Macro
  4725.         _SGGetDataOutputStorageSpaceRemaining
  4726.             move.l              #$00080034,-(sp)
  4727.             moveq               #0,D0
  4728.             dc.w                $A82A
  4729.         EndM
  4730.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4731.         IMPORT_CFM_FUNCTION SGGetDataOutputStorageSpaceRemaining
  4732.     ENDIF
  4733.  
  4734. ;
  4735. ; pascal ComponentResult SGHandleUpdateEvent(SeqGrabComponent s, const EventRecord *event, Boolean *handled)
  4736. ;
  4737.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4738.         Macro
  4739.         _SGHandleUpdateEvent
  4740.             move.l              #$00080035,-(sp)
  4741.             moveq               #0,D0
  4742.             dc.w                $A82A
  4743.         EndM
  4744.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4745.         IMPORT_CFM_FUNCTION SGHandleUpdateEvent
  4746.     ENDIF
  4747.  
  4748. ;
  4749. ; pascal ComponentResult SGSetOutputNextOutput(SeqGrabComponent s, SGOutput sgOut, SGOutput nextOut)
  4750. ;
  4751.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4752.         Macro
  4753.         _SGSetOutputNextOutput
  4754.             move.l              #$00080036,-(sp)
  4755.             moveq               #0,D0
  4756.             dc.w                $A82A
  4757.         EndM
  4758.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4759.         IMPORT_CFM_FUNCTION SGSetOutputNextOutput
  4760.     ENDIF
  4761.  
  4762. ;
  4763. ; pascal ComponentResult SGGetOutputNextOutput(SeqGrabComponent s, SGOutput sgOut, SGOutput *nextOut)
  4764. ;
  4765.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4766.         Macro
  4767.         _SGGetOutputNextOutput
  4768.             move.l              #$00080037,-(sp)
  4769.             moveq               #0,D0
  4770.             dc.w                $A82A
  4771.         EndM
  4772.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4773.         IMPORT_CFM_FUNCTION SGGetOutputNextOutput
  4774.     ENDIF
  4775.  
  4776. ;
  4777. ; pascal ComponentResult SGSetOutputMaximumOffset(SeqGrabComponent s, SGOutput sgOut, const wide *maxOffset)
  4778. ;
  4779.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4780.         Macro
  4781.         _SGSetOutputMaximumOffset
  4782.             move.l              #$00080038,-(sp)
  4783.             moveq               #0,D0
  4784.             dc.w                $A82A
  4785.         EndM
  4786.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4787.         IMPORT_CFM_FUNCTION SGSetOutputMaximumOffset
  4788.     ENDIF
  4789.  
  4790. ;
  4791. ; pascal ComponentResult SGGetOutputMaximumOffset(SeqGrabComponent s, SGOutput sgOut, wide *maxOffset)
  4792. ;
  4793.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4794.         Macro
  4795.         _SGGetOutputMaximumOffset
  4796.             move.l              #$00080039,-(sp)
  4797.             moveq               #0,D0
  4798.             dc.w                $A82A
  4799.         EndM
  4800.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4801.         IMPORT_CFM_FUNCTION SGGetOutputMaximumOffset
  4802.     ENDIF
  4803.  
  4804. ;
  4805. ; pascal ComponentResult SGGetOutputDataReference(SeqGrabComponent s, SGOutput sgOut, Handle *dataRef, OSType *dataRefType)
  4806. ;
  4807.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4808.         Macro
  4809.         _SGGetOutputDataReference
  4810.             move.l              #$000C003A,-(sp)
  4811.             moveq               #0,D0
  4812.             dc.w                $A82A
  4813.         EndM
  4814.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4815.         IMPORT_CFM_FUNCTION SGGetOutputDataReference
  4816.     ENDIF
  4817.  
  4818. ;
  4819. ; pascal ComponentResult SGWriteExtendedMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, wide *offset, SGOutput *sgOut)
  4820. ;
  4821.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4822.         Macro
  4823.         _SGWriteExtendedMovieData
  4824.             move.l              #$0014003B,-(sp)
  4825.             moveq               #0,D0
  4826.             dc.w                $A82A
  4827.         EndM
  4828.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4829.         IMPORT_CFM_FUNCTION SGWriteExtendedMovieData
  4830.     ENDIF
  4831.  
  4832. ;    calls from Channel to seqGrab
  4833. ;
  4834.  
  4835. ;
  4836. ; pascal ComponentResult SGWriteMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset)
  4837. ;
  4838.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4839.         Macro
  4840.         _SGWriteMovieData
  4841.             move.l              #$00100100,-(sp)
  4842.             moveq               #0,D0
  4843.             dc.w                $A82A
  4844.         EndM
  4845.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4846.         IMPORT_CFM_FUNCTION SGWriteMovieData
  4847.     ENDIF
  4848.  
  4849. ;
  4850. ; pascal ComponentResult SGAddFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo)
  4851. ;
  4852.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4853.         Macro
  4854.         _SGAddFrameReference
  4855.             move.l              #$00040101,-(sp)
  4856.             moveq               #0,D0
  4857.             dc.w                $A82A
  4858.         EndM
  4859.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4860.         IMPORT_CFM_FUNCTION SGAddFrameReference
  4861.     ENDIF
  4862.  
  4863. ;
  4864. ; pascal ComponentResult SGGetNextFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo, TimeValue *frameDuration, long *frameNumber)
  4865. ;
  4866.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4867.         Macro
  4868.         _SGGetNextFrameReference
  4869.             move.l              #$000C0102,-(sp)
  4870.             moveq               #0,D0
  4871.             dc.w                $A82A
  4872.         EndM
  4873.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4874.         IMPORT_CFM_FUNCTION SGGetNextFrameReference
  4875.     ENDIF
  4876.  
  4877. ;
  4878. ; pascal ComponentResult SGGetTimeBase(SeqGrabComponent s, TimeBase *tb)
  4879. ;
  4880.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4881.         Macro
  4882.         _SGGetTimeBase
  4883.             move.l              #$00040103,-(sp)
  4884.             moveq               #0,D0
  4885.             dc.w                $A82A
  4886.         EndM
  4887.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4888.         IMPORT_CFM_FUNCTION SGGetTimeBase
  4889.     ENDIF
  4890.  
  4891. ;
  4892. ; pascal ComponentResult SGSortDeviceList(SeqGrabComponent s, SGDeviceList list)
  4893. ;
  4894.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4895.         Macro
  4896.         _SGSortDeviceList
  4897.             move.l              #$00040104,-(sp)
  4898.             moveq               #0,D0
  4899.             dc.w                $A82A
  4900.         EndM
  4901.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4902.         IMPORT_CFM_FUNCTION SGSortDeviceList
  4903.     ENDIF
  4904.  
  4905. ;
  4906. ; pascal ComponentResult SGAddMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset, long chRefCon, TimeValue time, short writeType)
  4907. ;
  4908.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4909.         Macro
  4910.         _SGAddMovieData
  4911.             move.l              #$001A0105,-(sp)
  4912.             moveq               #0,D0
  4913.             dc.w                $A82A
  4914.         EndM
  4915.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4916.         IMPORT_CFM_FUNCTION SGAddMovieData
  4917.     ENDIF
  4918.  
  4919. ;
  4920. ; pascal ComponentResult SGChangedSource(SeqGrabComponent s, SGChannel c)
  4921. ;
  4922.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4923.         Macro
  4924.         _SGChangedSource
  4925.             move.l              #$00040106,-(sp)
  4926.             moveq               #0,D0
  4927.             dc.w                $A82A
  4928.         EndM
  4929.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4930.         IMPORT_CFM_FUNCTION SGChangedSource
  4931.     ENDIF
  4932.  
  4933. ;
  4934. ; pascal ComponentResult SGAddExtendedFrameReference(SeqGrabComponent s, SeqGrabExtendedFrameInfoPtr frameInfo)
  4935. ;
  4936.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4937.         Macro
  4938.         _SGAddExtendedFrameReference
  4939.             move.l              #$00040107,-(sp)
  4940.             moveq               #0,D0
  4941.             dc.w                $A82A
  4942.         EndM
  4943.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4944.         IMPORT_CFM_FUNCTION SGAddExtendedFrameReference
  4945.     ENDIF
  4946.  
  4947. ;
  4948. ; pascal ComponentResult SGGetNextExtendedFrameReference(SeqGrabComponent s, SeqGrabExtendedFrameInfoPtr frameInfo, TimeValue *frameDuration, long *frameNumber)
  4949. ;
  4950.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4951.         Macro
  4952.         _SGGetNextExtendedFrameReference
  4953.             move.l              #$000C0108,-(sp)
  4954.             moveq               #0,D0
  4955.             dc.w                $A82A
  4956.         EndM
  4957.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4958.         IMPORT_CFM_FUNCTION SGGetNextExtendedFrameReference
  4959.     ENDIF
  4960.  
  4961. ;
  4962. ; pascal ComponentResult SGAddExtendedMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, wide *offset, long chRefCon, TimeValue time, short writeType, SGOutput *whichOutput)
  4963. ;
  4964.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4965.         Macro
  4966.         _SGAddExtendedMovieData
  4967.             move.l              #$001E0109,-(sp)
  4968.             moveq               #0,D0
  4969.             dc.w                $A82A
  4970.         EndM
  4971.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4972.         IMPORT_CFM_FUNCTION SGAddExtendedMovieData
  4973.     ENDIF
  4974.  
  4975. ;
  4976. ; pascal ComponentResult SGAddOutputDataRefToMedia(SeqGrabComponent s, SGOutput sgOut, Media theMedia, SampleDescriptionHandle desc)
  4977. ;
  4978.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4979.         Macro
  4980.         _SGAddOutputDataRefToMedia
  4981.             move.l              #$000C010A,-(sp)
  4982.             moveq               #0,D0
  4983.             dc.w                $A82A
  4984.         EndM
  4985.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4986.         IMPORT_CFM_FUNCTION SGAddOutputDataRefToMedia
  4987.     ENDIF
  4988.  
  4989.  
  4990.  
  4991. ; ** Sequence Grab CHANNEL Component Stuff **
  4992.  
  4993. ;
  4994. ; pascal ComponentResult SGSetChannelUsage(SGChannel c, long usage)
  4995. ;
  4996.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4997.         Macro
  4998.         _SGSetChannelUsage
  4999.             move.l              #$00040080,-(sp)
  5000.             moveq               #0,D0
  5001.             dc.w                $A82A
  5002.         EndM
  5003.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5004.         IMPORT_CFM_FUNCTION SGSetChannelUsage
  5005.     ENDIF
  5006.  
  5007. ;
  5008. ; pascal ComponentResult SGGetChannelUsage(SGChannel c, long *usage)
  5009. ;
  5010.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5011.         Macro
  5012.         _SGGetChannelUsage
  5013.             move.l              #$00040081,-(sp)
  5014.             moveq               #0,D0
  5015.             dc.w                $A82A
  5016.         EndM
  5017.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5018.         IMPORT_CFM_FUNCTION SGGetChannelUsage
  5019.     ENDIF
  5020.  
  5021. ;
  5022. ; pascal ComponentResult SGSetChannelBounds(SGChannel c, const Rect *bounds)
  5023. ;
  5024.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5025.         Macro
  5026.         _SGSetChannelBounds
  5027.             move.l              #$00040082,-(sp)
  5028.             moveq               #0,D0
  5029.             dc.w                $A82A
  5030.         EndM
  5031.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5032.         IMPORT_CFM_FUNCTION SGSetChannelBounds
  5033.     ENDIF
  5034.  
  5035. ;
  5036. ; pascal ComponentResult SGGetChannelBounds(SGChannel c, Rect *bounds)
  5037. ;
  5038.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5039.         Macro
  5040.         _SGGetChannelBounds
  5041.             move.l              #$00040083,-(sp)
  5042.             moveq               #0,D0
  5043.             dc.w                $A82A
  5044.         EndM
  5045.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5046.         IMPORT_CFM_FUNCTION SGGetChannelBounds
  5047.     ENDIF
  5048.  
  5049. ;
  5050. ; pascal ComponentResult SGSetChannelVolume(SGChannel c, short volume)
  5051. ;
  5052.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5053.         Macro
  5054.         _SGSetChannelVolume
  5055.             move.l              #$00020084,-(sp)
  5056.             moveq               #0,D0
  5057.             dc.w                $A82A
  5058.         EndM
  5059.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5060.         IMPORT_CFM_FUNCTION SGSetChannelVolume
  5061.     ENDIF
  5062.  
  5063. ;
  5064. ; pascal ComponentResult SGGetChannelVolume(SGChannel c, short *volume)
  5065. ;
  5066.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5067.         Macro
  5068.         _SGGetChannelVolume
  5069.             move.l              #$00040085,-(sp)
  5070.             moveq               #0,D0
  5071.             dc.w                $A82A
  5072.         EndM
  5073.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5074.         IMPORT_CFM_FUNCTION SGGetChannelVolume
  5075.     ENDIF
  5076.  
  5077. ;
  5078. ; pascal ComponentResult SGGetChannelInfo(SGChannel c, long *channelInfo)
  5079. ;
  5080.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5081.         Macro
  5082.         _SGGetChannelInfo
  5083.             move.l              #$00040086,-(sp)
  5084.             moveq               #0,D0
  5085.             dc.w                $A82A
  5086.         EndM
  5087.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5088.         IMPORT_CFM_FUNCTION SGGetChannelInfo
  5089.     ENDIF
  5090.  
  5091. ;
  5092. ; pascal ComponentResult SGSetChannelPlayFlags(SGChannel c, long playFlags)
  5093. ;
  5094.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5095.         Macro
  5096.         _SGSetChannelPlayFlags
  5097.             move.l              #$00040087,-(sp)
  5098.             moveq               #0,D0
  5099.             dc.w                $A82A
  5100.         EndM
  5101.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5102.         IMPORT_CFM_FUNCTION SGSetChannelPlayFlags
  5103.     ENDIF
  5104.  
  5105. ;
  5106. ; pascal ComponentResult SGGetChannelPlayFlags(SGChannel c, long *playFlags)
  5107. ;
  5108.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5109.         Macro
  5110.         _SGGetChannelPlayFlags
  5111.             move.l              #$00040088,-(sp)
  5112.             moveq               #0,D0
  5113.             dc.w                $A82A
  5114.         EndM
  5115.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5116.         IMPORT_CFM_FUNCTION SGGetChannelPlayFlags
  5117.     ENDIF
  5118.  
  5119. ;
  5120. ; pascal ComponentResult SGSetChannelMaxFrames(SGChannel c, long frameCount)
  5121. ;
  5122.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5123.         Macro
  5124.         _SGSetChannelMaxFrames
  5125.             move.l              #$00040089,-(sp)
  5126.             moveq               #0,D0
  5127.             dc.w                $A82A
  5128.         EndM
  5129.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5130.         IMPORT_CFM_FUNCTION SGSetChannelMaxFrames
  5131.     ENDIF
  5132.  
  5133. ;
  5134. ; pascal ComponentResult SGGetChannelMaxFrames(SGChannel c, long *frameCount)
  5135. ;
  5136.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5137.         Macro
  5138.         _SGGetChannelMaxFrames
  5139.             move.l              #$0004008A,-(sp)
  5140.             moveq               #0,D0
  5141.             dc.w                $A82A
  5142.         EndM
  5143.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5144.         IMPORT_CFM_FUNCTION SGGetChannelMaxFrames
  5145.     ENDIF
  5146.  
  5147. ;
  5148. ; pascal ComponentResult SGSetChannelRefCon(SGChannel c, long refCon)
  5149. ;
  5150.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5151.         Macro
  5152.         _SGSetChannelRefCon
  5153.             move.l              #$0004008B,-(sp)
  5154.             moveq               #0,D0
  5155.             dc.w                $A82A
  5156.         EndM
  5157.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5158.         IMPORT_CFM_FUNCTION SGSetChannelRefCon
  5159.     ENDIF
  5160.  
  5161. ;
  5162. ; pascal ComponentResult SGSetChannelClip(SGChannel c, RgnHandle theClip)
  5163. ;
  5164.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5165.         Macro
  5166.         _SGSetChannelClip
  5167.             move.l              #$0004008C,-(sp)
  5168.             moveq               #0,D0
  5169.             dc.w                $A82A
  5170.         EndM
  5171.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5172.         IMPORT_CFM_FUNCTION SGSetChannelClip
  5173.     ENDIF
  5174.  
  5175. ;
  5176. ; pascal ComponentResult SGGetChannelClip(SGChannel c, RgnHandle *theClip)
  5177. ;
  5178.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5179.         Macro
  5180.         _SGGetChannelClip
  5181.             move.l              #$0004008D,-(sp)
  5182.             moveq               #0,D0
  5183.             dc.w                $A82A
  5184.         EndM
  5185.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5186.         IMPORT_CFM_FUNCTION SGGetChannelClip
  5187.     ENDIF
  5188.  
  5189. ;
  5190. ; pascal ComponentResult SGGetChannelSampleDescription(SGChannel c, Handle sampleDesc)
  5191. ;
  5192.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5193.         Macro
  5194.         _SGGetChannelSampleDescription
  5195.             move.l              #$0004008E,-(sp)
  5196.             moveq               #0,D0
  5197.             dc.w                $A82A
  5198.         EndM
  5199.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5200.         IMPORT_CFM_FUNCTION SGGetChannelSampleDescription
  5201.     ENDIF
  5202.  
  5203. ;
  5204. ; pascal ComponentResult SGGetChannelDeviceList(SGChannel c, long selectionFlags, SGDeviceList *list)
  5205. ;
  5206.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5207.         Macro
  5208.         _SGGetChannelDeviceList
  5209.             move.l              #$0008008F,-(sp)
  5210.             moveq               #0,D0
  5211.             dc.w                $A82A
  5212.         EndM
  5213.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5214.         IMPORT_CFM_FUNCTION SGGetChannelDeviceList
  5215.     ENDIF
  5216.  
  5217. ;
  5218. ; pascal ComponentResult SGSetChannelDevice(SGChannel c, StringPtr name)
  5219. ;
  5220.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5221.         Macro
  5222.         _SGSetChannelDevice
  5223.             move.l              #$00040090,-(sp)
  5224.             moveq               #0,D0
  5225.             dc.w                $A82A
  5226.         EndM
  5227.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5228.         IMPORT_CFM_FUNCTION SGSetChannelDevice
  5229.     ENDIF
  5230.  
  5231. ;
  5232. ; pascal ComponentResult SGSetChannelMatrix(SGChannel c, const MatrixRecord *m)
  5233. ;
  5234.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5235.         Macro
  5236.         _SGSetChannelMatrix
  5237.             move.l              #$00040091,-(sp)
  5238.             moveq               #0,D0
  5239.             dc.w                $A82A
  5240.         EndM
  5241.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5242.         IMPORT_CFM_FUNCTION SGSetChannelMatrix
  5243.     ENDIF
  5244.  
  5245. ;
  5246. ; pascal ComponentResult SGGetChannelMatrix(SGChannel c, MatrixRecord *m)
  5247. ;
  5248.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5249.         Macro
  5250.         _SGGetChannelMatrix
  5251.             move.l              #$00040092,-(sp)
  5252.             moveq               #0,D0
  5253.             dc.w                $A82A
  5254.         EndM
  5255.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5256.         IMPORT_CFM_FUNCTION SGGetChannelMatrix
  5257.     ENDIF
  5258.  
  5259. ;
  5260. ; pascal ComponentResult SGGetChannelTimeScale(SGChannel c, TimeScale *scale)
  5261. ;
  5262.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5263.         Macro
  5264.         _SGGetChannelTimeScale
  5265.             move.l              #$00040093,-(sp)
  5266.             moveq               #0,D0
  5267.             dc.w                $A82A
  5268.         EndM
  5269.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5270.         IMPORT_CFM_FUNCTION SGGetChannelTimeScale
  5271.     ENDIF
  5272.  
  5273. ;
  5274. ; pascal ComponentResult SGChannelPutPicture(SGChannel c)
  5275. ;
  5276.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5277.         Macro
  5278.         _SGChannelPutPicture
  5279.             move.l              #$00000094,-(sp)
  5280.             moveq               #0,D0
  5281.             dc.w                $A82A
  5282.         EndM
  5283.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5284.         IMPORT_CFM_FUNCTION SGChannelPutPicture
  5285.     ENDIF
  5286.  
  5287. ;
  5288. ; pascal ComponentResult SGChannelSetRequestedDataRate(SGChannel c, long bytesPerSecond)
  5289. ;
  5290.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5291.         Macro
  5292.         _SGChannelSetRequestedDataRate
  5293.             move.l              #$00040095,-(sp)
  5294.             moveq               #0,D0
  5295.             dc.w                $A82A
  5296.         EndM
  5297.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5298.         IMPORT_CFM_FUNCTION SGChannelSetRequestedDataRate
  5299.     ENDIF
  5300.  
  5301. ;
  5302. ; pascal ComponentResult SGChannelGetRequestedDataRate(SGChannel c, long *bytesPerSecond)
  5303. ;
  5304.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5305.         Macro
  5306.         _SGChannelGetRequestedDataRate
  5307.             move.l              #$00040096,-(sp)
  5308.             moveq               #0,D0
  5309.             dc.w                $A82A
  5310.         EndM
  5311.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5312.         IMPORT_CFM_FUNCTION SGChannelGetRequestedDataRate
  5313.     ENDIF
  5314.  
  5315. ;
  5316. ; pascal ComponentResult SGChannelSetDataSourceName(SGChannel c, ConstStr255Param name, ScriptCode scriptTag)
  5317. ;
  5318.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5319.         Macro
  5320.         _SGChannelSetDataSourceName
  5321.             move.l              #$00060097,-(sp)
  5322.             moveq               #0,D0
  5323.             dc.w                $A82A
  5324.         EndM
  5325.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5326.         IMPORT_CFM_FUNCTION SGChannelSetDataSourceName
  5327.     ENDIF
  5328.  
  5329. ;
  5330. ; pascal ComponentResult SGChannelGetDataSourceName(SGChannel c, Str255 name, ScriptCode *scriptTag)
  5331. ;
  5332.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5333.         Macro
  5334.         _SGChannelGetDataSourceName
  5335.             move.l              #$00080098,-(sp)
  5336.             moveq               #0,D0
  5337.             dc.w                $A82A
  5338.         EndM
  5339.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5340.         IMPORT_CFM_FUNCTION SGChannelGetDataSourceName
  5341.     ENDIF
  5342.  
  5343. ;    calls from seqGrab to Channel
  5344. ;
  5345.  
  5346. ;
  5347. ; pascal ComponentResult SGInitChannel(SGChannel c, SeqGrabComponent owner)
  5348. ;
  5349.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5350.         Macro
  5351.         _SGInitChannel
  5352.             move.l              #$00040180,-(sp)
  5353.             moveq               #0,D0
  5354.             dc.w                $A82A
  5355.         EndM
  5356.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5357.         IMPORT_CFM_FUNCTION SGInitChannel
  5358.     ENDIF
  5359.  
  5360. ;
  5361. ; pascal ComponentResult SGWriteSamples(SGChannel c, Movie m, AliasHandle theFile)
  5362. ;
  5363.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5364.         Macro
  5365.         _SGWriteSamples
  5366.             move.l              #$00080181,-(sp)
  5367.             moveq               #0,D0
  5368.             dc.w                $A82A
  5369.         EndM
  5370.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5371.         IMPORT_CFM_FUNCTION SGWriteSamples
  5372.     ENDIF
  5373.  
  5374. ;
  5375. ; pascal ComponentResult SGGetDataRate(SGChannel c, long *bytesPerSecond)
  5376. ;
  5377.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5378.         Macro
  5379.         _SGGetDataRate
  5380.             move.l              #$00040182,-(sp)
  5381.             moveq               #0,D0
  5382.             dc.w                $A82A
  5383.         EndM
  5384.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5385.         IMPORT_CFM_FUNCTION SGGetDataRate
  5386.     ENDIF
  5387.  
  5388. ;
  5389. ; pascal ComponentResult SGAlignChannelRect(SGChannel c, Rect *r)
  5390. ;
  5391.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5392.         Macro
  5393.         _SGAlignChannelRect
  5394.             move.l              #$00040183,-(sp)
  5395.             moveq               #0,D0
  5396.             dc.w                $A82A
  5397.         EndM
  5398.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5399.         IMPORT_CFM_FUNCTION SGAlignChannelRect
  5400.     ENDIF
  5401.  
  5402. ;    Dorky dialog panel calls
  5403. ;
  5404.  
  5405. ;
  5406. ; pascal ComponentResult SGPanelGetDitl(SeqGrabComponent s, Handle *ditl)
  5407. ;
  5408.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5409.         Macro
  5410.         _SGPanelGetDitl
  5411.             move.l              #$00040200,-(sp)
  5412.             moveq               #0,D0
  5413.             dc.w                $A82A
  5414.         EndM
  5415.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5416.         IMPORT_CFM_FUNCTION SGPanelGetDitl
  5417.     ENDIF
  5418.  
  5419. ;
  5420. ; pascal ComponentResult SGPanelGetTitle(SeqGrabComponent s, Str255 title)
  5421. ;
  5422.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5423.         Macro
  5424.         _SGPanelGetTitle
  5425.             move.l              #$00040201,-(sp)
  5426.             moveq               #0,D0
  5427.             dc.w                $A82A
  5428.         EndM
  5429.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5430.         IMPORT_CFM_FUNCTION SGPanelGetTitle
  5431.     ENDIF
  5432.  
  5433. ;
  5434. ; pascal ComponentResult SGPanelCanRun(SeqGrabComponent s, SGChannel c)
  5435. ;
  5436.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5437.         Macro
  5438.         _SGPanelCanRun
  5439.             move.l              #$00040202,-(sp)
  5440.             moveq               #0,D0
  5441.             dc.w                $A82A
  5442.         EndM
  5443.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5444.         IMPORT_CFM_FUNCTION SGPanelCanRun
  5445.     ENDIF
  5446.  
  5447. ;
  5448. ; pascal ComponentResult SGPanelInstall(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  5449. ;
  5450.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5451.         Macro
  5452.         _SGPanelInstall
  5453.             move.l              #$000A0203,-(sp)
  5454.             moveq               #0,D0
  5455.             dc.w                $A82A
  5456.         EndM
  5457.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5458.         IMPORT_CFM_FUNCTION SGPanelInstall
  5459.     ENDIF
  5460.  
  5461. ;
  5462. ; pascal ComponentResult SGPanelEvent(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, const EventRecord *theEvent, short *itemHit, Boolean *handled)
  5463. ;
  5464.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5465.         Macro
  5466.         _SGPanelEvent
  5467.             move.l              #$00160204,-(sp)
  5468.             moveq               #0,D0
  5469.             dc.w                $A82A
  5470.         EndM
  5471.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5472.         IMPORT_CFM_FUNCTION SGPanelEvent
  5473.     ENDIF
  5474.  
  5475. ;
  5476. ; pascal ComponentResult SGPanelItem(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, short itemNum)
  5477. ;
  5478.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5479.         Macro
  5480.         _SGPanelItem
  5481.             move.l              #$000C0205,-(sp)
  5482.             moveq               #0,D0
  5483.             dc.w                $A82A
  5484.         EndM
  5485.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5486.         IMPORT_CFM_FUNCTION SGPanelItem
  5487.     ENDIF
  5488.  
  5489. ;
  5490. ; pascal ComponentResult SGPanelRemove(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  5491. ;
  5492.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5493.         Macro
  5494.         _SGPanelRemove
  5495.             move.l              #$000A0206,-(sp)
  5496.             moveq               #0,D0
  5497.             dc.w                $A82A
  5498.         EndM
  5499.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5500.         IMPORT_CFM_FUNCTION SGPanelRemove
  5501.     ENDIF
  5502.  
  5503. ;
  5504. ; pascal ComponentResult SGPanelSetGrabber(SeqGrabComponent s, SeqGrabComponent sg)
  5505. ;
  5506.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5507.         Macro
  5508.         _SGPanelSetGrabber
  5509.             move.l              #$00040207,-(sp)
  5510.             moveq               #0,D0
  5511.             dc.w                $A82A
  5512.         EndM
  5513.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5514.         IMPORT_CFM_FUNCTION SGPanelSetGrabber
  5515.     ENDIF
  5516.  
  5517. ;
  5518. ; pascal ComponentResult SGPanelSetResFile(SeqGrabComponent s, short resRef)
  5519. ;
  5520.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5521.         Macro
  5522.         _SGPanelSetResFile
  5523.             move.l              #$00020208,-(sp)
  5524.             moveq               #0,D0
  5525.             dc.w                $A82A
  5526.         EndM
  5527.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5528.         IMPORT_CFM_FUNCTION SGPanelSetResFile
  5529.     ENDIF
  5530.  
  5531. ;
  5532. ; pascal ComponentResult SGPanelGetSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  5533. ;
  5534.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5535.         Macro
  5536.         _SGPanelGetSettings
  5537.             move.l              #$000C0209,-(sp)
  5538.             moveq               #0,D0
  5539.             dc.w                $A82A
  5540.         EndM
  5541.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5542.         IMPORT_CFM_FUNCTION SGPanelGetSettings
  5543.     ENDIF
  5544.  
  5545. ;
  5546. ; pascal ComponentResult SGPanelSetSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  5547. ;
  5548.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5549.         Macro
  5550.         _SGPanelSetSettings
  5551.             move.l              #$000C020A,-(sp)
  5552.             moveq               #0,D0
  5553.             dc.w                $A82A
  5554.         EndM
  5555.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5556.         IMPORT_CFM_FUNCTION SGPanelSetSettings
  5557.     ENDIF
  5558.  
  5559. ;
  5560. ; pascal ComponentResult SGPanelValidateInput(SeqGrabComponent s, Boolean *ok)
  5561. ;
  5562.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5563.         Macro
  5564.         _SGPanelValidateInput
  5565.             move.l              #$0004020B,-(sp)
  5566.             moveq               #0,D0
  5567.             dc.w                $A82A
  5568.         EndM
  5569.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5570.         IMPORT_CFM_FUNCTION SGPanelValidateInput
  5571.     ENDIF
  5572.  
  5573. ;
  5574. ; pascal ComponentResult SGPanelSetEventFilter(SeqGrabComponent s, SGModalFilterUPP proc, long refCon)
  5575. ;
  5576.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5577.         Macro
  5578.         _SGPanelSetEventFilter
  5579.             move.l              #$0008020C,-(sp)
  5580.             moveq               #0,D0
  5581.             dc.w                $A82A
  5582.         EndM
  5583.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5584.         IMPORT_CFM_FUNCTION SGPanelSetEventFilter
  5585.     ENDIF
  5586.  
  5587.  
  5588. ; ** Sequence Grab VIDEO CHANNEL Component Stuff **
  5589. ;    Video stuff
  5590. ;
  5591.  
  5592. SGCompressInfo            RECORD 0
  5593. buffer                     ds.l    1                ; offset: $0 (0)
  5594. bufferSize                 ds.l    1                ; offset: $4 (4)
  5595. similarity                 ds.b    1                ; offset: $8 (8)
  5596. reserved                 ds.b    1                ; offset: $9 (9)
  5597. sizeof                     EQU *                    ; size:   $A (10)
  5598.                         ENDR
  5599. VideoBottles            RECORD 0
  5600. procCount                 ds.w    1                ; offset: $0 (0)
  5601. grabProc                 ds.l    1                ; offset: $2 (2)
  5602. grabCompleteProc         ds.l    1                ; offset: $6 (6)
  5603. displayProc                 ds.l    1                ; offset: $A (10)
  5604. compressProc             ds.l    1                ; offset: $E (14)
  5605. compressCompleteProc     ds.l    1                ; offset: $12 (18)
  5606. addFrameProc             ds.l    1                ; offset: $16 (22)
  5607. transferFrameProc         ds.l    1                ; offset: $1A (26)
  5608. grabCompressCompleteProc  ds.l    1                ; offset: $1E (30)
  5609. displayCompressProc         ds.l    1                ; offset: $22 (34)
  5610. sizeof                     EQU *                    ; size:   $26 (38)
  5611.                         ENDR
  5612. ;
  5613. ; pascal ComponentResult SGGetSrcVideoBounds(SGChannel c, Rect *r)
  5614. ;
  5615.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5616.         Macro
  5617.         _SGGetSrcVideoBounds
  5618.             move.l              #$00040100,-(sp)
  5619.             moveq               #0,D0
  5620.             dc.w                $A82A
  5621.         EndM
  5622.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5623.         IMPORT_CFM_FUNCTION SGGetSrcVideoBounds
  5624.     ENDIF
  5625.  
  5626. ;
  5627. ; pascal ComponentResult SGSetVideoRect(SGChannel c, const Rect *r)
  5628. ;
  5629.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5630.         Macro
  5631.         _SGSetVideoRect
  5632.             move.l              #$00040101,-(sp)
  5633.             moveq               #0,D0
  5634.             dc.w                $A82A
  5635.         EndM
  5636.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5637.         IMPORT_CFM_FUNCTION SGSetVideoRect
  5638.     ENDIF
  5639.  
  5640. ;
  5641. ; pascal ComponentResult SGGetVideoRect(SGChannel c, Rect *r)
  5642. ;
  5643.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5644.         Macro
  5645.         _SGGetVideoRect
  5646.             move.l              #$00040102,-(sp)
  5647.             moveq               #0,D0
  5648.             dc.w                $A82A
  5649.         EndM
  5650.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5651.         IMPORT_CFM_FUNCTION SGGetVideoRect
  5652.     ENDIF
  5653.  
  5654. ;
  5655. ; pascal ComponentResult SGGetVideoCompressorType(SGChannel c, OSType *compressorType)
  5656. ;
  5657.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5658.         Macro
  5659.         _SGGetVideoCompressorType
  5660.             move.l              #$00040103,-(sp)
  5661.             moveq               #0,D0
  5662.             dc.w                $A82A
  5663.         EndM
  5664.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5665.         IMPORT_CFM_FUNCTION SGGetVideoCompressorType
  5666.     ENDIF
  5667.  
  5668. ;
  5669. ; pascal ComponentResult SGSetVideoCompressorType(SGChannel c, OSType compressorType)
  5670. ;
  5671.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5672.         Macro
  5673.         _SGSetVideoCompressorType
  5674.             move.l              #$00040104,-(sp)
  5675.             moveq               #0,D0
  5676.             dc.w                $A82A
  5677.         EndM
  5678.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5679.         IMPORT_CFM_FUNCTION SGSetVideoCompressorType
  5680.     ENDIF
  5681.  
  5682. ;
  5683. ; pascal ComponentResult SGSetVideoCompressor(SGChannel c, short depth, CompressorComponent compressor, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  5684. ;
  5685.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5686.         Macro
  5687.         _SGSetVideoCompressor
  5688.             move.l              #$00120105,-(sp)
  5689.             moveq               #0,D0
  5690.             dc.w                $A82A
  5691.         EndM
  5692.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5693.         IMPORT_CFM_FUNCTION SGSetVideoCompressor
  5694.     ENDIF
  5695.  
  5696. ;
  5697. ; pascal ComponentResult SGGetVideoCompressor(SGChannel c, short *depth, CompressorComponent *compressor, CodecQ *spatialQuality, CodecQ *temporalQuality, long *keyFrameRate)
  5698. ;
  5699.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5700.         Macro
  5701.         _SGGetVideoCompressor
  5702.             move.l              #$00140106,-(sp)
  5703.             moveq               #0,D0
  5704.             dc.w                $A82A
  5705.         EndM
  5706.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5707.         IMPORT_CFM_FUNCTION SGGetVideoCompressor
  5708.     ENDIF
  5709.  
  5710. ;
  5711. ; pascal ComponentInstance SGGetVideoDigitizerComponent(SGChannel c)
  5712. ;
  5713.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5714.         Macro
  5715.         _SGGetVideoDigitizerComponent
  5716.             move.l              #$00000107,-(sp)
  5717.             moveq               #0,D0
  5718.             dc.w                $A82A
  5719.         EndM
  5720.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5721.         IMPORT_CFM_FUNCTION SGGetVideoDigitizerComponent
  5722.     ENDIF
  5723.  
  5724. ;
  5725. ; pascal ComponentResult SGSetVideoDigitizerComponent(SGChannel c, ComponentInstance vdig)
  5726. ;
  5727.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5728.         Macro
  5729.         _SGSetVideoDigitizerComponent
  5730.             move.l              #$00040108,-(sp)
  5731.             moveq               #0,D0
  5732.             dc.w                $A82A
  5733.         EndM
  5734.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5735.         IMPORT_CFM_FUNCTION SGSetVideoDigitizerComponent
  5736.     ENDIF
  5737.  
  5738. ;
  5739. ; pascal ComponentResult SGVideoDigitizerChanged(SGChannel c)
  5740. ;
  5741.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5742.         Macro
  5743.         _SGVideoDigitizerChanged
  5744.             move.l              #$00000109,-(sp)
  5745.             moveq               #0,D0
  5746.             dc.w                $A82A
  5747.         EndM
  5748.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5749.         IMPORT_CFM_FUNCTION SGVideoDigitizerChanged
  5750.     ENDIF
  5751.  
  5752. ;
  5753. ; pascal ComponentResult SGSetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  5754. ;
  5755.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5756.         Macro
  5757.         _SGSetVideoBottlenecks
  5758.             move.l              #$0004010A,-(sp)
  5759.             moveq               #0,D0
  5760.             dc.w                $A82A
  5761.         EndM
  5762.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5763.         IMPORT_CFM_FUNCTION SGSetVideoBottlenecks
  5764.     ENDIF
  5765.  
  5766. ;
  5767. ; pascal ComponentResult SGGetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  5768. ;
  5769.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5770.         Macro
  5771.         _SGGetVideoBottlenecks
  5772.             move.l              #$0004010B,-(sp)
  5773.             moveq               #0,D0
  5774.             dc.w                $A82A
  5775.         EndM
  5776.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5777.         IMPORT_CFM_FUNCTION SGGetVideoBottlenecks
  5778.     ENDIF
  5779.  
  5780. ;
  5781. ; pascal ComponentResult SGGrabFrame(SGChannel c, short bufferNum)
  5782. ;
  5783.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5784.         Macro
  5785.         _SGGrabFrame
  5786.             move.l              #$0002010C,-(sp)
  5787.             moveq               #0,D0
  5788.             dc.w                $A82A
  5789.         EndM
  5790.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5791.         IMPORT_CFM_FUNCTION SGGrabFrame
  5792.     ENDIF
  5793.  
  5794. ;
  5795. ; pascal ComponentResult SGGrabFrameComplete(SGChannel c, short bufferNum, Boolean *done)
  5796. ;
  5797.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5798.         Macro
  5799.         _SGGrabFrameComplete
  5800.             move.l              #$0006010D,-(sp)
  5801.             moveq               #0,D0
  5802.             dc.w                $A82A
  5803.         EndM
  5804.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5805.         IMPORT_CFM_FUNCTION SGGrabFrameComplete
  5806.     ENDIF
  5807.  
  5808. ;
  5809. ; pascal ComponentResult SGDisplayFrame(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  5810. ;
  5811.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5812.         Macro
  5813.         _SGDisplayFrame
  5814.             move.l              #$000A010E,-(sp)
  5815.             moveq               #0,D0
  5816.             dc.w                $A82A
  5817.         EndM
  5818.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5819.         IMPORT_CFM_FUNCTION SGDisplayFrame
  5820.     ENDIF
  5821.  
  5822. ;
  5823. ; pascal ComponentResult SGCompressFrame(SGChannel c, short bufferNum)
  5824. ;
  5825.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5826.         Macro
  5827.         _SGCompressFrame
  5828.             move.l              #$0002010F,-(sp)
  5829.             moveq               #0,D0
  5830.             dc.w                $A82A
  5831.         EndM
  5832.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5833.         IMPORT_CFM_FUNCTION SGCompressFrame
  5834.     ENDIF
  5835.  
  5836. ;
  5837. ; pascal ComponentResult SGCompressFrameComplete(SGChannel c, short bufferNum, Boolean *done, SGCompressInfo *ci)
  5838. ;
  5839.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5840.         Macro
  5841.         _SGCompressFrameComplete
  5842.             move.l              #$000A0110,-(sp)
  5843.             moveq               #0,D0
  5844.             dc.w                $A82A
  5845.         EndM
  5846.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5847.         IMPORT_CFM_FUNCTION SGCompressFrameComplete
  5848.     ENDIF
  5849.  
  5850. ;
  5851. ; pascal ComponentResult SGAddFrame(SGChannel c, short bufferNum, TimeValue atTime, TimeScale scale, const SGCompressInfo *ci)
  5852. ;
  5853.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5854.         Macro
  5855.         _SGAddFrame
  5856.             move.l              #$000E0111,-(sp)
  5857.             moveq               #0,D0
  5858.             dc.w                $A82A
  5859.         EndM
  5860.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5861.         IMPORT_CFM_FUNCTION SGAddFrame
  5862.     ENDIF
  5863.  
  5864. ;
  5865. ; pascal ComponentResult SGTransferFrameForCompress(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  5866. ;
  5867.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5868.         Macro
  5869.         _SGTransferFrameForCompress
  5870.             move.l              #$000A0112,-(sp)
  5871.             moveq               #0,D0
  5872.             dc.w                $A82A
  5873.         EndM
  5874.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5875.         IMPORT_CFM_FUNCTION SGTransferFrameForCompress
  5876.     ENDIF
  5877.  
  5878. ;
  5879. ; pascal ComponentResult SGSetCompressBuffer(SGChannel c, short depth, const Rect *compressSize)
  5880. ;
  5881.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5882.         Macro
  5883.         _SGSetCompressBuffer
  5884.             move.l              #$00060113,-(sp)
  5885.             moveq               #0,D0
  5886.             dc.w                $A82A
  5887.         EndM
  5888.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5889.         IMPORT_CFM_FUNCTION SGSetCompressBuffer
  5890.     ENDIF
  5891.  
  5892. ;
  5893. ; pascal ComponentResult SGGetCompressBuffer(SGChannel c, short *depth, Rect *compressSize)
  5894. ;
  5895.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5896.         Macro
  5897.         _SGGetCompressBuffer
  5898.             move.l              #$00080114,-(sp)
  5899.             moveq               #0,D0
  5900.             dc.w                $A82A
  5901.         EndM
  5902.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5903.         IMPORT_CFM_FUNCTION SGGetCompressBuffer
  5904.     ENDIF
  5905.  
  5906. ;
  5907. ; pascal ComponentResult SGGetBufferInfo(SGChannel c, short bufferNum, PixMapHandle *bufferPM, Rect *bufferRect, GWorldPtr *compressBuffer, Rect *compressBufferRect)
  5908. ;
  5909.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5910.         Macro
  5911.         _SGGetBufferInfo
  5912.             move.l              #$00120115,-(sp)
  5913.             moveq               #0,D0
  5914.             dc.w                $A82A
  5915.         EndM
  5916.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5917.         IMPORT_CFM_FUNCTION SGGetBufferInfo
  5918.     ENDIF
  5919.  
  5920. ;
  5921. ; pascal ComponentResult SGSetUseScreenBuffer(SGChannel c, Boolean useScreenBuffer)
  5922. ;
  5923.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5924.         Macro
  5925.         _SGSetUseScreenBuffer
  5926.             move.l              #$00020116,-(sp)
  5927.             moveq               #0,D0
  5928.             dc.w                $A82A
  5929.         EndM
  5930.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5931.         IMPORT_CFM_FUNCTION SGSetUseScreenBuffer
  5932.     ENDIF
  5933.  
  5934. ;
  5935. ; pascal ComponentResult SGGetUseScreenBuffer(SGChannel c, Boolean *useScreenBuffer)
  5936. ;
  5937.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5938.         Macro
  5939.         _SGGetUseScreenBuffer
  5940.             move.l              #$00040117,-(sp)
  5941.             moveq               #0,D0
  5942.             dc.w                $A82A
  5943.         EndM
  5944.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5945.         IMPORT_CFM_FUNCTION SGGetUseScreenBuffer
  5946.     ENDIF
  5947.  
  5948. ;
  5949. ; pascal ComponentResult SGGrabCompressComplete(SGChannel c, Boolean *done, SGCompressInfo *ci, TimeRecord *tr)
  5950. ;
  5951.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5952.         Macro
  5953.         _SGGrabCompressComplete
  5954.             move.l              #$000C0118,-(sp)
  5955.             moveq               #0,D0
  5956.             dc.w                $A82A
  5957.         EndM
  5958.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5959.         IMPORT_CFM_FUNCTION SGGrabCompressComplete
  5960.     ENDIF
  5961.  
  5962. ;
  5963. ; pascal ComponentResult SGDisplayCompress(SGChannel c, Ptr dataPtr, ImageDescriptionHandle desc, MatrixRecord *mp, RgnHandle clipRgn)
  5964. ;
  5965.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5966.         Macro
  5967.         _SGDisplayCompress
  5968.             move.l              #$00100119,-(sp)
  5969.             moveq               #0,D0
  5970.             dc.w                $A82A
  5971.         EndM
  5972.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5973.         IMPORT_CFM_FUNCTION SGDisplayCompress
  5974.     ENDIF
  5975.  
  5976. ;
  5977. ; pascal ComponentResult SGSetFrameRate(SGChannel c, Fixed frameRate)
  5978. ;
  5979.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5980.         Macro
  5981.         _SGSetFrameRate
  5982.             move.l              #$0004011A,-(sp)
  5983.             moveq               #0,D0
  5984.             dc.w                $A82A
  5985.         EndM
  5986.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5987.         IMPORT_CFM_FUNCTION SGSetFrameRate
  5988.     ENDIF
  5989.  
  5990. ;
  5991. ; pascal ComponentResult SGGetFrameRate(SGChannel c, Fixed *frameRate)
  5992. ;
  5993.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5994.         Macro
  5995.         _SGGetFrameRate
  5996.             move.l              #$0004011B,-(sp)
  5997.             moveq               #0,D0
  5998.             dc.w                $A82A
  5999.         EndM
  6000.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6001.         IMPORT_CFM_FUNCTION SGGetFrameRate
  6002.     ENDIF
  6003.  
  6004.  
  6005. ;
  6006. ; pascal ComponentResult SGSetPreferredPacketSize(SGChannel c, long preferredPacketSizeInBytes)
  6007. ;
  6008.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6009.         Macro
  6010.         _SGSetPreferredPacketSize
  6011.             move.l              #$00040121,-(sp)
  6012.             moveq               #0,D0
  6013.             dc.w                $A82A
  6014.         EndM
  6015.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6016.         IMPORT_CFM_FUNCTION SGSetPreferredPacketSize
  6017.     ENDIF
  6018.  
  6019. ;
  6020. ; pascal ComponentResult SGGetPreferredPacketSize(SGChannel c, long *preferredPacketSizeInBytes)
  6021. ;
  6022.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6023.         Macro
  6024.         _SGGetPreferredPacketSize
  6025.             move.l              #$00040122,-(sp)
  6026.             moveq               #0,D0
  6027.             dc.w                $A82A
  6028.         EndM
  6029.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6030.         IMPORT_CFM_FUNCTION SGGetPreferredPacketSize
  6031.     ENDIF
  6032.  
  6033. ;
  6034. ; pascal ComponentResult SGSetUserVideoCompressorList(SGChannel c, Handle compressorTypes)
  6035. ;
  6036.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6037.         Macro
  6038.         _SGSetUserVideoCompressorList
  6039.             move.l              #$00040123,-(sp)
  6040.             moveq               #0,D0
  6041.             dc.w                $A82A
  6042.         EndM
  6043.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6044.         IMPORT_CFM_FUNCTION SGSetUserVideoCompressorList
  6045.     ENDIF
  6046.  
  6047. ;
  6048. ; pascal ComponentResult SGGetUserVideoCompressorList(SGChannel c, Handle *compressorTypes)
  6049. ;
  6050.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6051.         Macro
  6052.         _SGGetUserVideoCompressorList
  6053.             move.l              #$00040124,-(sp)
  6054.             moveq               #0,D0
  6055.             dc.w                $A82A
  6056.         EndM
  6057.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6058.         IMPORT_CFM_FUNCTION SGGetUserVideoCompressorList
  6059.     ENDIF
  6060.  
  6061. ; ** Sequence Grab SOUND CHANNEL Component Stuff **
  6062.  
  6063. ;    Sound stuff
  6064. ;
  6065.  
  6066. ;
  6067. ; pascal ComponentResult SGSetSoundInputDriver(SGChannel c, ConstStr255Param driverName)
  6068. ;
  6069.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6070.         Macro
  6071.         _SGSetSoundInputDriver
  6072.             move.l              #$00040100,-(sp)
  6073.             moveq               #0,D0
  6074.             dc.w                $A82A
  6075.         EndM
  6076.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6077.         IMPORT_CFM_FUNCTION SGSetSoundInputDriver
  6078.     ENDIF
  6079.  
  6080. ;
  6081. ; pascal long SGGetSoundInputDriver(SGChannel c)
  6082. ;
  6083.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6084.         Macro
  6085.         _SGGetSoundInputDriver
  6086.             move.l              #$00000101,-(sp)
  6087.             moveq               #0,D0
  6088.             dc.w                $A82A
  6089.         EndM
  6090.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6091.         IMPORT_CFM_FUNCTION SGGetSoundInputDriver
  6092.     ENDIF
  6093.  
  6094. ;
  6095. ; pascal ComponentResult SGSoundInputDriverChanged(SGChannel c)
  6096. ;
  6097.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6098.         Macro
  6099.         _SGSoundInputDriverChanged
  6100.             move.l              #$00000102,-(sp)
  6101.             moveq               #0,D0
  6102.             dc.w                $A82A
  6103.         EndM
  6104.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6105.         IMPORT_CFM_FUNCTION SGSoundInputDriverChanged
  6106.     ENDIF
  6107.  
  6108. ;
  6109. ; pascal ComponentResult SGSetSoundRecordChunkSize(SGChannel c, long seconds)
  6110. ;
  6111.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6112.         Macro
  6113.         _SGSetSoundRecordChunkSize
  6114.             move.l              #$00040103,-(sp)
  6115.             moveq               #0,D0
  6116.             dc.w                $A82A
  6117.         EndM
  6118.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6119.         IMPORT_CFM_FUNCTION SGSetSoundRecordChunkSize
  6120.     ENDIF
  6121.  
  6122. ;
  6123. ; pascal long SGGetSoundRecordChunkSize(SGChannel c)
  6124. ;
  6125.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6126.         Macro
  6127.         _SGGetSoundRecordChunkSize
  6128.             move.l              #$00000104,-(sp)
  6129.             moveq               #0,D0
  6130.             dc.w                $A82A
  6131.         EndM
  6132.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6133.         IMPORT_CFM_FUNCTION SGGetSoundRecordChunkSize
  6134.     ENDIF
  6135.  
  6136. ;
  6137. ; pascal ComponentResult SGSetSoundInputRate(SGChannel c, Fixed rate)
  6138. ;
  6139.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6140.         Macro
  6141.         _SGSetSoundInputRate
  6142.             move.l              #$00040105,-(sp)
  6143.             moveq               #0,D0
  6144.             dc.w                $A82A
  6145.         EndM
  6146.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6147.         IMPORT_CFM_FUNCTION SGSetSoundInputRate
  6148.     ENDIF
  6149.  
  6150. ;
  6151. ; pascal Fixed SGGetSoundInputRate(SGChannel c)
  6152. ;
  6153.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6154.         Macro
  6155.         _SGGetSoundInputRate
  6156.             move.l              #$00000106,-(sp)
  6157.             moveq               #0,D0
  6158.             dc.w                $A82A
  6159.         EndM
  6160.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6161.         IMPORT_CFM_FUNCTION SGGetSoundInputRate
  6162.     ENDIF
  6163.  
  6164. ;
  6165. ; pascal ComponentResult SGSetSoundInputParameters(SGChannel c, short sampleSize, short numChannels, OSType compressionType)
  6166. ;
  6167.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6168.         Macro
  6169.         _SGSetSoundInputParameters
  6170.             move.l              #$00080107,-(sp)
  6171.             moveq               #0,D0
  6172.             dc.w                $A82A
  6173.         EndM
  6174.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6175.         IMPORT_CFM_FUNCTION SGSetSoundInputParameters
  6176.     ENDIF
  6177.  
  6178. ;
  6179. ; pascal ComponentResult SGGetSoundInputParameters(SGChannel c, short *sampleSize, short *numChannels, OSType *compressionType)
  6180. ;
  6181.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6182.         Macro
  6183.         _SGGetSoundInputParameters
  6184.             move.l              #$000C0108,-(sp)
  6185.             moveq               #0,D0
  6186.             dc.w                $A82A
  6187.         EndM
  6188.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6189.         IMPORT_CFM_FUNCTION SGGetSoundInputParameters
  6190.     ENDIF
  6191.  
  6192. ;
  6193. ; pascal ComponentResult SGSetAdditionalSoundRates(SGChannel c, Handle rates)
  6194. ;
  6195.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6196.         Macro
  6197.         _SGSetAdditionalSoundRates
  6198.             move.l              #$00040109,-(sp)
  6199.             moveq               #0,D0
  6200.             dc.w                $A82A
  6201.         EndM
  6202.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6203.         IMPORT_CFM_FUNCTION SGSetAdditionalSoundRates
  6204.     ENDIF
  6205.  
  6206. ;
  6207. ; pascal ComponentResult SGGetAdditionalSoundRates(SGChannel c, Handle *rates)
  6208. ;
  6209.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6210.         Macro
  6211.         _SGGetAdditionalSoundRates
  6212.             move.l              #$0004010A,-(sp)
  6213.             moveq               #0,D0
  6214.             dc.w                $A82A
  6215.         EndM
  6216.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6217.         IMPORT_CFM_FUNCTION SGGetAdditionalSoundRates
  6218.     ENDIF
  6219.  
  6220. ;    Text stuff
  6221. ;
  6222.  
  6223. ;
  6224. ; pascal ComponentResult SGSetFontName(SGChannel c, StringPtr pstr)
  6225. ;
  6226.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6227.         Macro
  6228.         _SGSetFontName
  6229.             move.l              #$00040100,-(sp)
  6230.             moveq               #0,D0
  6231.             dc.w                $A82A
  6232.         EndM
  6233.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6234.         IMPORT_CFM_FUNCTION SGSetFontName
  6235.     ENDIF
  6236.  
  6237. ;
  6238. ; pascal ComponentResult SGSetFontSize(SGChannel c, short fontSize)
  6239. ;
  6240.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6241.         Macro
  6242.         _SGSetFontSize
  6243.             move.l              #$00020101,-(sp)
  6244.             moveq               #0,D0
  6245.             dc.w                $A82A
  6246.         EndM
  6247.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6248.         IMPORT_CFM_FUNCTION SGSetFontSize
  6249.     ENDIF
  6250.  
  6251. ;
  6252. ; pascal ComponentResult SGSetTextForeColor(SGChannel c, RGBColor *theColor)
  6253. ;
  6254.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6255.         Macro
  6256.         _SGSetTextForeColor
  6257.             move.l              #$00040102,-(sp)
  6258.             moveq               #0,D0
  6259.             dc.w                $A82A
  6260.         EndM
  6261.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6262.         IMPORT_CFM_FUNCTION SGSetTextForeColor
  6263.     ENDIF
  6264.  
  6265. ;
  6266. ; pascal ComponentResult SGSetTextBackColor(SGChannel c, RGBColor *theColor)
  6267. ;
  6268.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6269.         Macro
  6270.         _SGSetTextBackColor
  6271.             move.l              #$00040103,-(sp)
  6272.             moveq               #0,D0
  6273.             dc.w                $A82A
  6274.         EndM
  6275.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6276.         IMPORT_CFM_FUNCTION SGSetTextBackColor
  6277.     ENDIF
  6278.  
  6279. ;
  6280. ; pascal ComponentResult SGSetJustification(SGChannel c, short just)
  6281. ;
  6282.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6283.         Macro
  6284.         _SGSetJustification
  6285.             move.l              #$00020104,-(sp)
  6286.             moveq               #0,D0
  6287.             dc.w                $A82A
  6288.         EndM
  6289.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6290.         IMPORT_CFM_FUNCTION SGSetJustification
  6291.     ENDIF
  6292.  
  6293. ;
  6294. ; pascal ComponentResult SGGetTextReturnToSpaceValue(SGChannel c, short *rettospace)
  6295. ;
  6296.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6297.         Macro
  6298.         _SGGetTextReturnToSpaceValue
  6299.             move.l              #$00040105,-(sp)
  6300.             moveq               #0,D0
  6301.             dc.w                $A82A
  6302.         EndM
  6303.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6304.         IMPORT_CFM_FUNCTION SGGetTextReturnToSpaceValue
  6305.     ENDIF
  6306.  
  6307. ;
  6308. ; pascal ComponentResult SGSetTextReturnToSpaceValue(SGChannel c, short rettospace)
  6309. ;
  6310.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6311.         Macro
  6312.         _SGSetTextReturnToSpaceValue
  6313.             move.l              #$00020106,-(sp)
  6314.             moveq               #0,D0
  6315.             dc.w                $A82A
  6316.         EndM
  6317.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6318.         IMPORT_CFM_FUNCTION SGSetTextReturnToSpaceValue
  6319.     ENDIF
  6320.  
  6321. ;    Music stuff
  6322. ;
  6323.  
  6324. ;
  6325. ; pascal ComponentResult SGGetInstrument(SGChannel c, ToneDescription *td)
  6326. ;
  6327.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6328.         Macro
  6329.         _SGGetInstrument
  6330.             move.l              #$00040100,-(sp)
  6331.             moveq               #0,D0
  6332.             dc.w                $A82A
  6333.         EndM
  6334.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6335.         IMPORT_CFM_FUNCTION SGGetInstrument
  6336.     ENDIF
  6337.  
  6338. ;
  6339. ; pascal ComponentResult SGSetInstrument(SGChannel c, ToneDescription *td)
  6340. ;
  6341.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6342.         Macro
  6343.         _SGSetInstrument
  6344.             move.l              #$00040101,-(sp)
  6345.             moveq               #0,D0
  6346.             dc.w                $A82A
  6347.         EndM
  6348.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6349.         IMPORT_CFM_FUNCTION SGSetInstrument
  6350.     ENDIF
  6351.  
  6352.  
  6353.  
  6354. sgChannelAtom                    EQU        'chan'
  6355. sgChannelSettingsAtom            EQU        'ctom'
  6356. sgChannelDescription            EQU        'cdsc'
  6357. sgChannelSettings                EQU        'cset'
  6358.  
  6359. sgDeviceNameType                EQU        'name'
  6360. sgUsageType                        EQU        'use '
  6361. sgPlayFlagsType                    EQU        'plyf'
  6362. sgClipType                        EQU        'clip'
  6363. sgMatrixType                    EQU        'mtrx'
  6364. sgVolumeType                    EQU        'volu'
  6365.  
  6366. sgPanelSettingsAtom                EQU        'ptom'
  6367. sgPanelDescription                EQU        'pdsc'
  6368. sgPanelSettings                    EQU        'pset'
  6369.  
  6370. sgcSoundCompressionType            EQU        'scmp'
  6371. sgcSoundSampleRateType            EQU        'srat'
  6372. sgcSoundChannelCountType        EQU        'schn'
  6373. sgcSoundSampleSizeType            EQU        'ssiz'
  6374. sgcSoundInputType                EQU        'sinp'
  6375. sgcSoundGainType                EQU        'gain'
  6376.  
  6377. sgcVideoHueType                    EQU        'hue '
  6378. sgcVideoSaturationType            EQU        'satr'
  6379. sgcVideoContrastType            EQU        'trst'
  6380. sgcVideoSharpnessType            EQU        'shrp'
  6381. sgcVideoBrigtnessType            EQU        'brit'
  6382. sgcVideoBlackLevelType            EQU        'blkl'
  6383. sgcVideoWhiteLevelType            EQU        'whtl'
  6384. sgcVideoInputType                EQU        'vinp'
  6385. sgcVideoFormatType                EQU        'vstd'
  6386. sgcVideoFilterType                EQU        'vflt'
  6387. sgcVideoRectType                EQU        'vrct'
  6388. sgcVideoDigitizerType            EQU        'vdig'
  6389.  
  6390.  
  6391.  
  6392. ; typedef ComponentInstance             QTVideoOutputComponent
  6393.  
  6394. ;  Component type and subtype enumerations
  6395.  
  6396. QTVideoOutputComponentType        EQU        'vout'
  6397. QTVideoOutputComponentBaseSubType EQU    'base'
  6398.  
  6399. ;  QTVideoOutput Component flags
  6400.  
  6401.  
  6402. kQTVideoOutputDontDisplayToUser    EQU        $00000001
  6403. ;  Display mode atom types
  6404.  
  6405.  
  6406. kQTVODisplayModeItem            EQU        'qdmi'
  6407. kQTVODimensions                    EQU        'dimn'                ; atom contains two longs - pixel count - width, height
  6408. kQTVOResolution                    EQU        'resl'                ; atom contains two Fixed - hRes, vRes in dpi
  6409. kQTVORefreshRate                EQU        'refr'                ; atom contains one Fixed - refresh rate in Hz
  6410. kQTVOPixelType                    EQU        'pixl'                ; atom contains one OSType - pixel format of mode
  6411. kQTVOName                        EQU        'name'                ; atom contains string (no length byte) - name of modefor display to user
  6412. kQTVODecompressors                EQU        'deco'                ; atom contains other atoms indicating supported decompressors
  6413.                                                             ; kQTVODecompressors sub-atoms
  6414. kQTVODecompressorType            EQU        'dety'                ; atom contains one OSType - decompressor type code
  6415. kQTVODecompressorContinuous        EQU        'cont'                ; atom contains one Boolean - true if this type is displayed continuously
  6416. kQTVODecompressorComponent        EQU        'cmpt'                ; atom contains one Component - component id of decompressor
  6417. ;
  6418. ; pascal ComponentResult QTVideoOutputGetDisplayModeList(QTVideoOutputComponent vo, QTAtomContainer *outputs)
  6419. ;
  6420.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6421.         Macro
  6422.         _QTVideoOutputGetDisplayModeList
  6423.             move.l              #$00040001,-(sp)
  6424.             moveq               #0,D0
  6425.             dc.w                $A82A
  6426.         EndM
  6427.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6428.         IMPORT_CFM_FUNCTION QTVideoOutputGetDisplayModeList
  6429.     ENDIF
  6430.  
  6431. ;
  6432. ; pascal ComponentResult QTVideoOutputGetCurrentClientName(QTVideoOutputComponent vo, Str255 str)
  6433. ;
  6434.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6435.         Macro
  6436.         _QTVideoOutputGetCurrentClientName
  6437.             move.l              #$00040002,-(sp)
  6438.             moveq               #0,D0
  6439.             dc.w                $A82A
  6440.         EndM
  6441.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6442.         IMPORT_CFM_FUNCTION QTVideoOutputGetCurrentClientName
  6443.     ENDIF
  6444.  
  6445. ;
  6446. ; pascal ComponentResult QTVideoOutputSetClientName(QTVideoOutputComponent vo, ConstStr255Param str)
  6447. ;
  6448.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6449.         Macro
  6450.         _QTVideoOutputSetClientName
  6451.             move.l              #$00040003,-(sp)
  6452.             moveq               #0,D0
  6453.             dc.w                $A82A
  6454.         EndM
  6455.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6456.         IMPORT_CFM_FUNCTION QTVideoOutputSetClientName
  6457.     ENDIF
  6458.  
  6459. ;
  6460. ; pascal ComponentResult QTVideoOutputGetClientName(QTVideoOutputComponent vo, Str255 str)
  6461. ;
  6462.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6463.         Macro
  6464.         _QTVideoOutputGetClientName
  6465.             move.l              #$00040004,-(sp)
  6466.             moveq               #0,D0
  6467.             dc.w                $A82A
  6468.         EndM
  6469.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6470.         IMPORT_CFM_FUNCTION QTVideoOutputGetClientName
  6471.     ENDIF
  6472.  
  6473. ;
  6474. ; pascal ComponentResult QTVideoOutputBegin(QTVideoOutputComponent vo)
  6475. ;
  6476.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6477.         Macro
  6478.         _QTVideoOutputBegin
  6479.             move.l              #$00000005,-(sp)
  6480.             moveq               #0,D0
  6481.             dc.w                $A82A
  6482.         EndM
  6483.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6484.         IMPORT_CFM_FUNCTION QTVideoOutputBegin
  6485.     ENDIF
  6486.  
  6487. ;
  6488. ; pascal ComponentResult QTVideoOutputEnd(QTVideoOutputComponent vo)
  6489. ;
  6490.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6491.         Macro
  6492.         _QTVideoOutputEnd
  6493.             move.l              #$00000006,-(sp)
  6494.             moveq               #0,D0
  6495.             dc.w                $A82A
  6496.         EndM
  6497.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6498.         IMPORT_CFM_FUNCTION QTVideoOutputEnd
  6499.     ENDIF
  6500.  
  6501. ;
  6502. ; pascal ComponentResult QTVideoOutputSetDisplayMode(QTVideoOutputComponent vo, long displayModeID)
  6503. ;
  6504.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6505.         Macro
  6506.         _QTVideoOutputSetDisplayMode
  6507.             move.l              #$00040007,-(sp)
  6508.             moveq               #0,D0
  6509.             dc.w                $A82A
  6510.         EndM
  6511.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6512.         IMPORT_CFM_FUNCTION QTVideoOutputSetDisplayMode
  6513.     ENDIF
  6514.  
  6515. ;
  6516. ; pascal ComponentResult QTVideoOutputGetDisplayMode(QTVideoOutputComponent vo, long *displayModeID)
  6517. ;
  6518.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6519.         Macro
  6520.         _QTVideoOutputGetDisplayMode
  6521.             move.l              #$00040008,-(sp)
  6522.             moveq               #0,D0
  6523.             dc.w                $A82A
  6524.         EndM
  6525.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6526.         IMPORT_CFM_FUNCTION QTVideoOutputGetDisplayMode
  6527.     ENDIF
  6528.  
  6529. ;
  6530. ; pascal ComponentResult QTVideoOutputCustomConfigureDisplay(QTVideoOutputComponent vo, ModalFilterUPP filter)
  6531. ;
  6532.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6533.         Macro
  6534.         _QTVideoOutputCustomConfigureDisplay
  6535.             move.l              #$00040009,-(sp)
  6536.             moveq               #0,D0
  6537.             dc.w                $A82A
  6538.         EndM
  6539.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6540.         IMPORT_CFM_FUNCTION QTVideoOutputCustomConfigureDisplay
  6541.     ENDIF
  6542.  
  6543. ;
  6544. ; pascal ComponentResult QTVideoOutputSaveState(QTVideoOutputComponent vo, QTAtomContainer *state)
  6545. ;
  6546.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6547.         Macro
  6548.         _QTVideoOutputSaveState
  6549.             move.l              #$0004000A,-(sp)
  6550.             moveq               #0,D0
  6551.             dc.w                $A82A
  6552.         EndM
  6553.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6554.         IMPORT_CFM_FUNCTION QTVideoOutputSaveState
  6555.     ENDIF
  6556.  
  6557. ;
  6558. ; pascal ComponentResult QTVideoOutputRestoreState(QTVideoOutputComponent vo, QTAtomContainer state)
  6559. ;
  6560.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6561.         Macro
  6562.         _QTVideoOutputRestoreState
  6563.             move.l              #$0004000B,-(sp)
  6564.             moveq               #0,D0
  6565.             dc.w                $A82A
  6566.         EndM
  6567.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6568.         IMPORT_CFM_FUNCTION QTVideoOutputRestoreState
  6569.     ENDIF
  6570.  
  6571. ;
  6572. ; pascal ComponentResult QTVideoOutputGetGWorld(QTVideoOutputComponent vo, GWorldPtr *gw)
  6573. ;
  6574.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6575.         Macro
  6576.         _QTVideoOutputGetGWorld
  6577.             move.l              #$0004000C,-(sp)
  6578.             moveq               #0,D0
  6579.             dc.w                $A82A
  6580.         EndM
  6581.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6582.         IMPORT_CFM_FUNCTION QTVideoOutputGetGWorld
  6583.     ENDIF
  6584.  
  6585. ;
  6586. ; pascal ComponentResult QTVideoOutputGetGWorldParameters(QTVideoOutputComponent vo, Ptr *baseAddr, long *rowBytes, CTabHandle *colorTable)
  6587. ;
  6588.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6589.         Macro
  6590.         _QTVideoOutputGetGWorldParameters
  6591.             move.l              #$000C000D,-(sp)
  6592.             moveq               #0,D0
  6593.             dc.w                $A82A
  6594.         EndM
  6595.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6596.         IMPORT_CFM_FUNCTION QTVideoOutputGetGWorldParameters
  6597.     ENDIF
  6598.  
  6599. ;
  6600. ; pascal ComponentResult QTVideoOutputGetIndSoundOutput(QTVideoOutputComponent vo, long index, Component *outputComponent)
  6601. ;
  6602.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6603.         Macro
  6604.         _QTVideoOutputGetIndSoundOutput
  6605.             move.l              #$0008000E,-(sp)
  6606.             moveq               #0,D0
  6607.             dc.w                $A82A
  6608.         EndM
  6609.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6610.         IMPORT_CFM_FUNCTION QTVideoOutputGetIndSoundOutput
  6611.     ENDIF
  6612.  
  6613. ;
  6614. ; pascal ComponentResult QTVideoOutputGetClock(QTVideoOutputComponent vo, ComponentInstance *clock)
  6615. ;
  6616.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6617.         Macro
  6618.         _QTVideoOutputGetClock
  6619.             move.l              #$0004000F,-(sp)
  6620.             moveq               #0,D0
  6621.             dc.w                $A82A
  6622.         EndM
  6623.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6624.         IMPORT_CFM_FUNCTION QTVideoOutputGetClock
  6625.     ENDIF
  6626.  
  6627. ;
  6628. ; pascal ComponentResult QTVideoOutputSetEchoPort(QTVideoOutputComponent vo, CGrafPtr echoPort)
  6629. ;
  6630.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6631.         Macro
  6632.         _QTVideoOutputSetEchoPort
  6633.             move.l              #$00040010,-(sp)
  6634.             moveq               #0,D0
  6635.             dc.w                $A82A
  6636.         EndM
  6637.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6638.         IMPORT_CFM_FUNCTION QTVideoOutputSetEchoPort
  6639.     ENDIF
  6640.  
  6641. ;  UPP call backs 
  6642.  
  6643.     ENDIF ; __QUICKTIMECOMPONENTS__ 
  6644.  
  6645.